diff --git a/code/save.lisp b/code/save.lisp index 7c9d5a739c718f63d0054c25cdab3904e4e5b6d6..01b3b5db51197bb3cad9f81b009a1f2854c3b58a 100644 --- a/code/save.lisp +++ b/code/save.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.49 2003/03/04 00:29:35 pmai Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.50 2003/03/19 03:28:36 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -88,7 +88,7 @@ (dolist (ele lisp-environment-list) (let ((=pos (position #\= (the simple-string ele)))) (when =pos - (push (cons (intern (string-upcase (subseq ele 0 =pos)) + (push (cons (intern (subseq ele 0 =pos) *keyword-package*) (subseq ele (1+ =pos))) *environment-list*))))