0.pre7.126:

[sbcl.git] / tests / float.impure.lisp

diff --git a/tests/float.impure.lisp b/tests/float.impure.lisp
index 36fdd6f..ef7379e 100644 (file)
--- a/tests/float.impure.lisp
+++ b/tests/float.impure.lisp
@@ -35,13 +35,13 @@
   (declare (type (simple-array double-float (2)) p))
   (aref p 1))
 (defun order39 (points)
-  (sort points  #'(lambda (p1 p2)
-                    (let* ((y1 (point39-y p1))
-                           (y2 (point39-y p2)))
-                      (if (= y1 y2)
-                          (< (point39-x p1)
-                             (point39-x p2))
-                          (< y1 y2))))))
+  (sort points  (lambda (p1 p2)
+                 (let* ((y1 (point39-y p1))
+                        (y2 (point39-y p2)))
+                   (if (= y1 y2)
+                       (< (point39-x p1)
+                          (point39-x p2))
+                       (< y1 y2))))))
 (defun test39 ()
   (order39 (make-array 4
                       :initial-contents (list (point39 0.0d0 0.0d0)