0.9.2.43:
[sbcl.git] / tests / compiler.impure-cload.lisp
index 41d0525..7d5e99d 100644 (file)
 ;;; failed on Alpha prior to sbcl-0.8.10.30
 (defun lotso-values ()
   (values 0 1 2 3 4 5 6 7 8 9
-         0 1 2 3 4 5 6 7 8 9
-         0 1 2 3 4 5 6 7 8 9
-         0 1 2 3 4 5 6 7 8 9
-         0 1 2 3 4 5 6 7 8 9
-         0 1 2 3 4 5 6 7 8 9
-         0 1 2 3 4 5 6 7 8 9
-         0 1 2 3 4 5 6 7 8 9
-         0 1 2 3 4 5 6 7 8 9
-         0 1 2 3 4 5 6 7 8 9))
+          0 1 2 3 4 5 6 7 8 9
+          0 1 2 3 4 5 6 7 8 9
+          0 1 2 3 4 5 6 7 8 9
+          0 1 2 3 4 5 6 7 8 9
+          0 1 2 3 4 5 6 7 8 9
+          0 1 2 3 4 5 6 7 8 9
+          0 1 2 3 4 5 6 7 8 9
+          0 1 2 3 4 5 6 7 8 9
+          0 1 2 3 4 5 6 7 8 9))
 
 ;;; bug 313: source transforms were "lisp-1"
 (defun srctran-lisp1-1 (cadr) (if (functionp cadr) (funcall cadr 1) nil))
 (assert (eql (funcall (eval #'srctran-lisp1-1) #'identity) 1))
-(without-package-locks 
+(without-package-locks
    ;; this be a nasal demon, but test anyways
    (defvar caar))
 (defun srctran-lisp1-2 (caar) (funcall (sb-ext:truly-the function caar) 1))