Skip to content
Snippets Groups Projects
Commit a1c81116 authored by ram's avatar ram
Browse files

Set *ENVIRONMENT-LIST* to NIL before we start to push things on it in

ENVIRONMENT-INIT so that we don't keep around the old values.
parent 632ed1c3
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.15 1992/05/25 21:37:20 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.16 1992/08/06 01:44:17 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -81,6 +81,7 @@ ...@@ -81,6 +81,7 @@
;;; search lists. ;;; search lists.
;;; ;;;
(defun environment-init () (defun environment-init ()
(setq *environment-list* ())
(dolist (ele lisp-environment-list) (dolist (ele lisp-environment-list)
(let ((=pos (position #\= (the simple-string ele)))) (let ((=pos (position #\= (the simple-string ele))))
(when =pos (when =pos
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment