0.9.12.26:

	The argument to IN-PACKAGE is a string designator; stringify
	it early in case it's a symbol interned in a package which no
	longer exists at FASL load time. (Thanks to Zach Beane)

diff --git a/src/code/defboot.lisp b/src/code/defboot.lisp
index b7d3c0f..9dc6d46 100644 (file)
--- a/src/code/defboot.lisp
+++ b/src/code/defboot.lisp
@@ -23,9 +23,10 @@
 \f
 ;;;; IN-PACKAGE
 
-(defmacro-mundanely in-package (package-designator)
-  `(eval-when (:compile-toplevel :load-toplevel :execute)
-     (setq *package* (find-undeleted-package-or-lose ',package-designator))))
+(defmacro-mundanely in-package (string-designator)
+  (let ((string (string string-designator)))
+    `(eval-when (:compile-toplevel :load-toplevel :execute)
+       (setq *package* (find-undeleted-package-or-lose ,string)))))
 \f
 ;;;; MULTIPLE-VALUE-FOO
 

diff --git a/version.lisp-expr b/version.lisp-expr
index 6cc5ae6..b4072c8 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.12.25"
+"0.9.12.26"