[armedbear-cvs] r12981 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Tue Oct 19 04:52:05 2010
New Revision: 12981

Log:
Fix SBCL issue found by building SBCL with ABCL as a host.

Note: untabify the changed region, the patch only adds
   ':length nil' to the WRITE form.

Modified:
   trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	Tue Oct 19 04:52:05 2010
@@ -599,22 +599,23 @@
               (write (list 'setq '*source* *compile-file-truename*)
                      :stream out)
               (%stream-terpri out)
-	      ;; Note: Beyond this point, you can't use DUMP-FORM,
-	      ;; because the list of uninterned symbols has been fixed now.
-	      (when *fasl-uninterned-symbols*
-		(write (list 'setq '*fasl-uninterned-symbols*
-			     (coerce (mapcar #'car
-					     (nreverse *fasl-uninterned-symbols*))
-				     'vector))
-		       :stream out))
-	      (%stream-terpri out)
-
-	      (when (> *class-number* 0)
-		(generate-loader-function)
-		(write (list 'setq '*fasl-loader*
-			     `(sys::make-fasl-class-loader
-			       ,*class-number*
-			       ,(concatenate 'string "org.armedbear.lisp." (base-classname)))) :stream out))
+              ;; Note: Beyond this point, you can't use DUMP-FORM,
+              ;; because the list of uninterned symbols has been fixed now.
+              (when *fasl-uninterned-symbols*
+                (write (list 'setq '*fasl-uninterned-symbols*
+                             (coerce (mapcar #'car
+                                             (nreverse *fasl-uninterned-symbols*))
+                                     'vector))
+                       :stream out
+                       :length nil))
+              (%stream-terpri out)
+
+              (when (> *class-number* 0)
+                (generate-loader-function)
+                (write (list 'setq '*fasl-loader*
+                             `(sys::make-fasl-class-loader
+                               ,*class-number*
+                               ,(concatenate 'string "org.armedbear.lisp." (base-classname)))) :stream out))
               (%stream-terpri out))