···

       
351
       
351
       
 
       
    src = pkgs.fetchFromGitHub {

     

       
352
       
352
       
 
       
      owner = "kaveh808";

     

       
353
       
353
       
 
       
      repo = "kons-9";

     

       
354
       
354
       
-
       
      rev = "95ad44fac0566f445c4b7bd040339dcff75ee992";

     

       
355
       
355
       
-
       
      sha256 = "19rl7372j9f1cv2kl55r8vyf4dhcz4way4hkjgysbxzrb1psp17n";

     

       
354
       
354
       
+
       
      rev = "08770e7fbb839b91fd035f1cd4a50ecc81b42d57";

     

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

     

       
356
       
356
       
 
       
    };

     

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

     

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

     

       
358
       
359
       
 
       
    lispLibs = with self; [

     

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

     

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

     

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

     

       
361
       
362
       
 
       
      org_dot_melusina_dot_confidence

     

       
362
       
363
       
 
       
    ];

     

       
363
       
364
       
 
       
  };

     

···

       
1
       
1
       
+
       
--- a/testsuite/assertions.lisp

     

       
2
       
2
       
+
       
+++ b/testsuite/assertions.lisp

     

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

     

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

     

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

     

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

     

       
7
       
7
       
+
       
-  (:report

     

       
8
       
8
       
+
       
+   :report

     

       
9
       
9
       
+
       
    (lambda (stream)

     

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

     

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

     

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

     

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

     

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

     

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

     

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

     

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

     

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

     

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

     

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

     

       
21
       
21
       
+
       


     

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