From 4fc8b4e5f8b06a384235bc258b0bf1e0028f7802 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Tue, 19 Aug 2008 11:41:58 +0000
Subject: [PATCH] Externalize packages using FIND-PACKAGE

---
 src/CHANGELOG      | 2 ++
 src/clos/print.lsp | 3 +++
 2 files changed, 5 insertions(+)

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
 ;;; ----------------------------------------------------------------------