Commit 07d11082 authored by Brian Mastenbrook's avatar Brian Mastenbrook
Browse files

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)
parent ab17e2b1
Loading
Loading
Loading
Loading
+4 −3
Original line number Diff line number Diff line
@@ -23,9 +23,10 @@

;;;; IN-PACKAGE

(defmacro-mundanely in-package (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 ',package-designator))))
       (setq *package* (find-undeleted-package-or-lose ,string)))))

;;;; MULTIPLE-VALUE-FOO

+1 −1
Original line number Diff line number Diff line
@@ -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"