0.9.2.43:
[sbcl.git] / tests / float.impure.lisp
index 518a122..2af31bf 100644 (file)
@@ -7,7 +7,7 @@
 ;;;; While most of SBCL is derived from the CMU CL system, the test
 ;;;; files (like this one) were written from scratch after the fork
 ;;;; from CMU CL.
-;;;; 
+;;;;
 ;;;; This software is in the public domain and is provided with
 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
 ;;;; more information.
@@ -24,7 +24,7 @@
 ;;; e.g. someone inadvertently ports the bad code.
 (defun point39 (x y)
   (make-array 2
-             :element-type 'double-float
+              :element-type 'double-float
               :initial-contents (list x y)))
 
 (declaim (inline point39-x point39-y))
   (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))))))
+                  (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)
-                                              (point39 1.0d0 1.0d0)
-                                              (point39 2.0d0 2.0d0)
-                                              (point39 3.0d0 3.0d0)))))
+                       :initial-contents (list (point39 0.0d0 0.0d0)
+                                               (point39 1.0d0 1.0d0)
+                                               (point39 2.0d0 2.0d0)
+                                               (point39 3.0d0 3.0d0)))))
 (assert (equalp (test39)
-               #(#(0.0d0 0.0d0)
-                 #(1.0d0 1.0d0)
-                 #(2.0d0 2.0d0)
-                 #(3.0d0 3.0d0))))
+                #(#(0.0d0 0.0d0)
+                  #(1.0d0 1.0d0)
+                  #(2.0d0 2.0d0)
+                  #(3.0d0 3.0d0))))
 
 (defun complex-double-float-ppc (x y)
   (declare (type (complex double-float) x y))