Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
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)
  • Loading branch information...
commit 07d11082f85d635148bfef93b3795b6c90dc7eca 1 parent ab17e2b
Brian Mastenbrook authored
Showing with 5 additions and 4 deletions.
  1. +4 −3 src/code/defboot.lisp
  2. +1 −1  version.lisp-expr
View
7 src/code/defboot.lisp
@@ -23,9 +23,10 @@
;;;; 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)))))
;;;; MULTIPLE-VALUE-FOO
View
2  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"
Please sign in to comment.
Something went wrong with that request. Please try again.