/[cmucl]/src/code/save.lisp
ViewVC logotype

Diff of /src/code/save.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.62 by rtoy, Tue Aug 18 13:12:42 2009 UTC revision 1.63 by agoncharov, Sat Oct 10 16:51:55 2009 UTC
# Line 19  Line 19 
19  (in-package "LISP")  (in-package "LISP")
20    
21  (in-package "EXTENSIONS")  (in-package "EXTENSIONS")
22  (export '(print-herald *herald-items* save-lisp *before-save-initializations*  (export '(print-herald getenv *herald-items* save-lisp *before-save-initializations*
23            *after-save-initializations* *environment-list* *editor-lisp-p*))            *after-save-initializations* *environment-list* *editor-lisp-p*))
24  (in-package "LISP")  (in-package "LISP")
25    
# Line 119  Line 119 
119            "target:i18n/"            "target:i18n/"
120            "target:pcl/simple-streams/external-formats/")))            "target:pcl/simple-streams/external-formats/")))
121    
122    (defun getenv (name)
123      "Return the value of the environment variable Name; nil if Name is unset."
124      (cdr (assoc (intern name *keyword-package*) *environment-list*)))
125    
126    
127  ;;;; SAVE-LISP itself.  ;;;; SAVE-LISP itself.

Legend:
Removed from v.1.62  
changed lines
  Added in v.1.63

  ViewVC Help
Powered by ViewVC 1.1.5