Skip to content
Snippets Groups Projects
Commit 53aac568 authored by Raymond Toy's avatar Raymond Toy
Browse files

Update cmucl version to 21a.

Add bootfile for building cmucl with the new version too.
parent b8654321
Branches
Tags
No related merge requests found
;;;;
;;;; Boot file for changing the fasl file version numbers to 21a.
;;;;
(in-package :c)
(setf lisp::*enable-package-locked-errors* nil)
;;;
;;; Note that BYTE-FASL-FILE-VERSION is a constant.
;;;
;;; (Be sure to change BYTE-FASL-FILE-VERSION in
;;; compiler/byte-comp.lisp to the correct value too!)
;;;
#-cmu21a
(setf (symbol-value 'byte-fasl-file-version) #x21a)
#-cmu21a
(setf (backend-fasl-file-version *target-backend*) #x21a)
;;;
;;; Don't check fasl versions in the compiling Lisp because we'll
;;; load files compiled with the new version numbers.
;;;
#-cmu21a
(setq lisp::*skip-fasl-file-version-check* t)
;;;
;;; This is here because BYTE-FASL-FILE-VERSION is constant-folded in
;;; OPEN-FASL-FILE. To make the new version number take effect, we
;;; have to redefine the function.
;;;
#-cmu21a
(defun open-fasl-file (name where &optional byte-p)
(declare (type pathname name))
(let* ((stream (open name :direction :output
:if-exists :new-version
:element-type '(unsigned-byte 8)
:class 'binary-text-stream))
(res (make-fasl-file :stream stream)))
(multiple-value-bind
(version f-vers f-imp)
(if byte-p
(values "Byte code"
byte-fasl-file-version
(backend-byte-fasl-file-implementation *backend*))
(values (backend-version *backend*)
(backend-fasl-file-version *backend*)
(backend-fasl-file-implementation *backend*)))
(format stream
"FASL FILE output from ~A.~@
Compiled ~A on ~A~@
Compiler ~A, Lisp ~A~@
Targeted for ~A, FASL version ~X~%"
where
(ext:format-universal-time nil (get-universal-time))
(machine-instance) compiler-version
(lisp-implementation-version)
version f-vers)
;;
;; Terminate header.
(dump-byte 255 res)
;;
;; Specify code format.
(dump-fop 'lisp::fop-long-code-format res)
(dump-byte f-imp res)
(dump-unsigned-32 f-vers res))
res))
...@@ -38,7 +38,7 @@ ...@@ -38,7 +38,7 @@
;; 0-9 followed by a single hex digit in the range a-f. Then the ;; 0-9 followed by a single hex digit in the range a-f. Then the
;; version looks like a decimal number followed by a minor release ;; version looks like a decimal number followed by a minor release
;; letter of a to f. ;; letter of a to f.
(defconstant byte-fasl-file-version #x20f) (defconstant byte-fasl-file-version #x21a)
(let* ((version-string (format nil "~X" byte-fasl-file-version))) (let* ((version-string (format nil "~X" byte-fasl-file-version)))
;; Add :cmu<n> to *features* ;; Add :cmu<n> to *features*
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment