/[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.64 by agoncharov, Sun Oct 11 03:18:29 2009 UTC revision 1.65 by agoncharov, Wed Oct 14 03:42:21 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 getenv *herald-items* save-lisp *before-save-initializations*  (export '(print-herald *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    
 (defun getenv (name)  
   "Return the value of the environment variable Name; nil if Name is unset."  
   (let ((symbol (find-symbol name *keyword-package*)))  
     (if symbol (cdr (assoc symbol *environment-list*)) nil)))  
   
122    
123  ;;;; SAVE-LISP itself.  ;;;; SAVE-LISP itself.
124    

Legend:
Removed from v.1.64  
changed lines
  Added in v.1.65

  ViewVC Help
Powered by ViewVC 1.1.5