/[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.1.1.1 by wlott, Sun Jun 17 02:08:50 1990 UTC revision 1.1.1.2 by wlott, Mon Jun 25 21:00:16 1990 UTC
# Line 133  Line 133 
133    
134    
135  (defun print-herald ()  (defun print-herald ()
136    (write-string "CMU Common Lisp ")    (macrolet ((frob (variable)
137    (write-line (lisp-implementation-version))                 `(if (boundp ',variable)
138    (write-string "Hemlock ")                      ,variable
139    (write-string *hemlock-version*)                      "<not loaded>")))
140    (write-string ", Compiler ")      (write-string "CMU Common Lisp ")
141    (write-line #+nil compiler-version #-nil "What compiler?")      (write-string (lisp-implementation-version))
142    (write-line "Send bug reports and questions to Gripe.")      (write-string ", running on ")
143        (write-line (machine-instance))
144        (write-string "Hemlock ")
145        (write-string (frob *hemlock-version*))
146        (write-string ", Compiler ")
147        (write-line (frob compiler-version))
148        (write-line "Send bug reports and questions to Gripe."))
149    (values))    (values))

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.1.1.2

  ViewVC Help
Powered by ViewVC 1.1.5