mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 05:12:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

Externalize packages using FIND-PACKAGE

Browse source
This commit is contained in:
jjgarcia 2008-08-19 11:41:58 +00:00
parent e3451cd779
commit 4fc8b4e5f8
2 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/CHANGELOG
View file

@ -12,6 +12,8 @@ ECL 0.9l-p1:
- Deactivate --enable-asmapply by default, because it is still an experimental
feature.
- In compiled files, externalize package objects using FIND-PACKAGE.
;;; Local Variables: ***
;;; mode:text ***
;;; fill-column:79 ***

3
src/clos/print.lsp
View file

@ -118,6 +118,9 @@ printer and we should rather use MAKE-LOAD-FORM."
`(find-class ',name)
(error "Cannot externalize anonymous class ~A" class))))
(defmethod make-load-form ((package package) &optional environment)
`(find-package ,(package-name package)))
;;; ----------------------------------------------------------------------
;;; Printing
;;; ----------------------------------------------------------------------