/[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.6 by ram, Tue Apr 9 14:39:43 1991 UTC revision 1.7 by ram, Wed Jun 5 14:00:25 1991 UTC
# Line 11  Line 11 
11  ;;;  ;;;
12  ;;; **********************************************************************  ;;; **********************************************************************
13  ;;;  ;;;
 ;;; $Header$  
 ;;;  
14  ;;; Dump the current lisp image into a core file.  All the real work is done  ;;; Dump the current lisp image into a core file.  All the real work is done
15  ;;; be C.  ;;; be C.
16  ;;;  ;;;
# Line 153  Line 151 
151      (write-line (machine-instance))      (write-line (machine-instance))
152      (write-string "Hemlock ")      (write-string "Hemlock ")
153      (write-string (frob *hemlock-version*))      (write-string (frob *hemlock-version*))
154      (write-string ", Compiler ")      (write-string ", Python ")
155      (write-line (frob compiler-version))      (write-string (frob compiler-version))
156      (write-line "Send bug reports and questions to Gripe."))      (when (boundp 'c:*backend*)
157          (write-string ", target ")
158          (write-string (c:backend-version c:*backend*)))
159        (terpri)
160        (write-line "Send bug reports and questions to cmucl-bugs+@cs.cmu.edu."))
161    (values))    (values))
162    
163    

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

  ViewVC Help
Powered by ViewVC 1.1.5