Skip to content

Commit

Permalink
0.9.12.26:
Browse files Browse the repository at this point in the history 
	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
Brian Mastenbrook committed May 15, 2006
1 parent ab17e2b commit 07d1108
Show file tree
Hide file tree
Showing 2 changed files with 5 additions and 4 deletions.
7 changes: 4 additions & 3 deletions src/code/defboot.lisp
View file
Original file line number Original file line Diff line number Diff line change
Expand Up @@ -23,9 +23,10 @@


;;;; IN-PACKAGE ;;;; IN-PACKAGE


(defmacro-mundanely in-package (package-designator) (defmacro-mundanely in-package (string-designator)
`(eval-when (:compile-toplevel :load-toplevel :execute) (let ((string (string string-designator)))
(setq *package* (find-undeleted-package-or-lose ',package-designator)))) `(eval-when (:compile-toplevel :load-toplevel :execute)
(setq *package* (find-undeleted-package-or-lose ,string)))))


;;;; MULTIPLE-VALUE-FOO ;;;; MULTIPLE-VALUE-FOO


Expand Down
2 changes: 1 addition & 1 deletion version.lisp-expr
View file
Original file line number Original file line Diff line number Diff line change
Expand Up @@ -17,4 +17,4 @@
;;; checkins which aren't released. (And occasionally for internal ;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS ;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
"0.9.12.25" "0.9.12.26"

0 comments on commit 07d1108

Please sign in to comment.