Changeset 12981


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

    r12918 r12981  
    600600                     :stream out)
    601601              (%stream-terpri out)
    602         ;; Note: Beyond this point, you can't use DUMP-FORM,
    603         ;; because the list of uninterned symbols has been fixed now.
    604         (when *fasl-uninterned-symbols*
    605     (write (list 'setq '*fasl-uninterned-symbols*
    606            (coerce (mapcar #'car
    607                (nreverse *fasl-uninterned-symbols*))
    608              'vector))
    609            :stream out))
    610         (%stream-terpri out)
    611 
    612         (when (> *class-number* 0)
    613     (generate-loader-function)
    614     (write (list 'setq '*fasl-loader*
    615            `(sys::make-fasl-class-loader
    616              ,*class-number*
    617              ,(concatenate 'string "org.armedbear.lisp." (base-classname)))) :stream out))
     602              ;; Note: Beyond this point, you can't use DUMP-FORM,
     603              ;; because the list of uninterned symbols has been fixed now.
     604              (when *fasl-uninterned-symbols*
     605                (write (list 'setq '*fasl-uninterned-symbols*
     606                             (coerce (mapcar #'car
     607                                             (nreverse *fasl-uninterned-symbols*))
     608                                     'vector))
     609                       :stream out
     610                       :length nil))
     611              (%stream-terpri out)
     612
     613              (when (> *class-number* 0)
     614                (generate-loader-function)
     615                (write (list 'setq '*fasl-loader*
     616                             `(sys::make-fasl-class-loader
     617                               ,*class-number*
     618                               ,(concatenate 'string "org.armedbear.lisp." (base-classname)))) :stream out))
    618619              (%stream-terpri out))
    619620
Note: See TracChangeset for help on using the changeset viewer.