kons-9: bump to tip of trunk

    src = pkgs.fetchFromGitHub {

      owner = "kaveh808";

      repo = "kons-9";

      rev = "95ad44fac0566f445c4b7bd040339dcff75ee992";

      sha256 = "19rl7372j9f1cv2kl55r8vyf4dhcz4way4hkjgysbxzrb1psp17n";

      rev = "08770e7fbb839b91fd035f1cd4a50ecc81b42d57";

      sha256 = "sha256-Tit/qmOU5+zp43/ecIXGbh4CtgWzltWM7tHdVWkga0k=";

    };

    systems = [ "kons-9" "kons-9/testsuite" ];

    patches = [ ./patches/kons-9-fix-testsuite-compilation.patch ];

    lispLibs = with self; [

      closer-mop trivial-main-thread trivial-backtrace cffi cl-opengl cl-glu

      cl-glfw3 cl-paths-ttf zpb-ttf cl-vectors origin clobber

      cl-glfw3 cl-paths-ttf zpb-ttf cl-vectors origin clobber shasht

      org_dot_melusina_dot_confidence

    ];

  };

--- a/testsuite/assertions.lisp

+++ b/testsuite/assertions.lisp

@@ -13,7 +13,7 @@

 relation when computing with floating point numbers. Two floating point numbers are

 essentially equal when they are in a neighbourhood whose size is based

 on the magnitude orders of these floating point numbers and the inaccuracy."

-  (:report

+   :report

    (lambda (stream)

      (flet ((maybe-report (name float1 float2)

 	      (unless (float-is-essentially-equal (p:y point1) (p:y point2) :inaccuracy inaccuracy)

@@ -29,7 +29,7 @@

 	    inaccuracy (confidence::float-comparison-threshold 'single-float max inaccuracy float1 float2)))))

        (maybe-report "X" (p:x point1) (p:x point2))

        (maybe-report "Y" (p:y point1) (p:y point2))

-       (maybe-report "Z" (p:z point1) (p:z point2)))))

+       (maybe-report "Z" (p:z point1) (p:z point2))))

   (and (float-is-essentially-equal (p:x point1) (p:x point2) :inaccuracy inaccuracy)

        (float-is-essentially-equal (p:y point1) (p:y point2) :inaccuracy inaccuracy)

        (float-is-essentially-equal (p:z point1) (p:z point2) :inaccuracy inaccuracy)))

Diff finished.  Sun Oct 20 03:05:54 2024