diff --git a/src/CHANGELOG b/src/CHANGELOG index 7674ac3cc..e810fceee 100644 --- a/src/CHANGELOG +++ b/src/CHANGELOG @@ -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 *** diff --git a/src/clos/print.lsp b/src/clos/print.lsp index d7c9a2cdd..bd4913926 100644 --- a/src/clos/print.lsp +++ b/src/clos/print.lsp @@ -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 ;;; ----------------------------------------------------------------------