Skip to content
Snippets Groups Projects
Commit 80ae2a18 authored by wlott's avatar wlott
Browse files

Forgot to change the header to contain the version instead of the

code-format now that the code-format doesn't exist.
parent bd774ddc
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.22 1990/10/24 01:28:48 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.23 1990/10/25 20:48:32 wlott Exp $
;;; ;;;
;;; This file contains stuff that knows about dumping FASL files. ;;; This file contains stuff that knows about dumping FASL files.
;;; ;;;
...@@ -302,11 +302,11 @@ ...@@ -302,11 +302,11 @@
"FASL FILE output from ~A.~@ "FASL FILE output from ~A.~@
Compiled ~A on ~A~@ Compiled ~A on ~A~@
Compiler ~A, Lisp ~A~@ Compiler ~A, Lisp ~A~@
Targeted for ~A, FASL code format ~D~%" Targeted for ~A, FASL version ~D~%"
where where
(ext:format-universal-time nil (get-universal-time)) (ext:format-universal-time nil (get-universal-time))
(machine-instance) compiler-version (machine-instance) compiler-version
(lisp-implementation-version) vm-version target-fasl-code-format) (lisp-implementation-version) vm-version target-fasl-file-version)
;; ;;
;; Terminate header. ;; Terminate header.
(dump-byte 255 res) (dump-byte 255 res)
......
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