Skip to content
Snippets Groups Projects
Commit da9ad906 authored by agoncharov's avatar agoncharov
Browse files

In `(defun getenv (name))': check for name being in *keyword-package* first.

parent cb2dac82
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.63 2009/10/10 16:51:55 agoncharov Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.64 2009/10/11 03:18:29 agoncharov Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -121,7 +121,8 @@ ...@@ -121,7 +121,8 @@
(defun getenv (name) (defun getenv (name)
"Return the value of the environment variable Name; nil if Name is unset." "Return the value of the environment variable Name; nil if Name is unset."
(cdr (assoc (intern name *keyword-package*) *environment-list*))) (let ((symbol (find-symbol name *keyword-package*)))
(if symbol (cdr (assoc symbol *environment-list*)) nil)))
;;;; SAVE-LISP itself. ;;;; SAVE-LISP itself.
......
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