Changeset 12981

Timestamp:

10/19/10 08:52:05 (11 years ago)

Author:

ehuelsmann

Message:

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.

File:

• trunk/abcl/src/org/armedbear/lisp/compile-file.lisp (modified) (1 diff)

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

@@ -600 +600 @@
                      :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))