Changeset 12981
- Timestamp:
- 10/19/10 08:52:05 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
r12918 r12981 600 600 :stream out) 601 601 (%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)) 618 619 (%stream-terpri out)) 619 620
Note: See TracChangeset
for help on using the changeset viewer.