Loading src/code/defboot.lisp +4 −3 Original line number Diff line number Diff line Loading @@ -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 Loading version.lisp-expr +1 −1 Original line number Diff line number Diff line Loading @@ -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" Loading
src/code/defboot.lisp +4 −3 Original line number Diff line number Diff line Loading @@ -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 Loading
version.lisp-expr +1 −1 Original line number Diff line number Diff line Loading @@ -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"