From 3c0fd4a1c79883e3b7b5fe72ce8e18e33867be64 Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Wed, 19 Mar 2003 03:28:36 +0000 Subject: [PATCH] Preserve the case of the variable names in the environment. --- code/save.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/save.lisp b/code/save.lisp index 7c9d5a739..01b3b5db5 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*)))) -- GitLab