<html lang='en'>
<head>
<meta content='text/html; charset=utf-8' http-equiv='Content-Type'>
<title>
GitLab
</title>
</meta>
</head>
<style>
img {
max-width: 100%;
height: auto;
}
p.details {
font-style:italic;
color:#777
}
.footer p {
font-size:small;
color:#777
}
pre.commit-message {
white-space: pre-wrap;
}
.file-stats a {
text-decoration: none;
}
.file-stats .new-file {
color: #090;
}
.file-stats .deleted-file {
color: #B00;
}
</style>
<body>
<div class='content'>
<h3>Raymond Toy pushed to branch master at <a href="https://gitlab.common-lisp.net/cmucl/cmucl">cmucl / cmucl</a></h3>
<h4>
Commits:
</h4>
<ul>
<li>
<strong><a href="https://gitlab.common-lisp.net/cmucl/cmucl/commit/53aac568790637344a95c6772edac153905dc3a3">53aac568</a></strong>
<div>
<span>by Raymond Toy</span>
<i>at 2015-09-30T21:56:04Z</i>
</div>
<pre class='commit-message'>Update cmucl version to 21a.
Add bootfile for building cmucl with the new version too.</pre>
</li>
<li>
<strong><a href="https://gitlab.common-lisp.net/cmucl/cmucl/commit/db9bcbd3688f1252ff1031cbab00ce6aa2f33c03">db9bcbd3</a></strong>
<div>
<span>by Raymond Toy</span>
<i>at 2015-09-30T21:56:20Z</i>
</div>
<pre class='commit-message'>Remove [In progress] note.</pre>
</li>
</ul>
<h4>3 changed files:</h4>
<ul>
<li class='file-stats'>
<a href='#diff-0'>
<span class='new-file'>
+
src/bootfiles/20f/boot-21a.lisp
</span>
</a>
</li>
<li class='file-stats'>
<a href='#diff-1'>
src/compiler/byte-comp.lisp
</a>
</li>
<li class='file-stats'>
<a href='#diff-2'>
src/general-info/release-21a.txt
</a>
</li>
</ul>
<h4>Changes:</h4>
<li id='diff-0'>
<a href='https://gitlab.common-lisp.net/cmucl/cmucl/compare/b8654321e9bb003da77dbf9eabd8d69cba7e6b29...db9bcbd3688f1252ff1031cbab00ce6aa2f33c03#diff-0'>
<strong>
src/bootfiles/20f/boot-21a.lisp
</strong>
</a>
<hr>
<pre class="highlight"><code><span style="color: #000000;background-color: #ffdddd">--- /dev/null
</span><span style="color: #000000;background-color: #ddffdd">+++ b/src/bootfiles/20f/boot-21a.lisp
</span><span style="color: #aaaaaa">@@ -0,0 +1,68 @@
</span><span style="color: #000000;background-color: #ddffdd">+;;;;
+;;;; 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))
+
</span></code></pre>
<br>
</li>
<li id='diff-1'>
<a href='https://gitlab.common-lisp.net/cmucl/cmucl/compare/b8654321e9bb003da77dbf9eabd8d69cba7e6b29...db9bcbd3688f1252ff1031cbab00ce6aa2f33c03#diff-1'>
<strong>
src/compiler/byte-comp.lisp
</strong>
</a>
<hr>
<pre class="highlight"><code><span style="color: #000000;background-color: #ffdddd">--- a/src/compiler/byte-comp.lisp
</span><span style="color: #000000;background-color: #ddffdd">+++ b/src/compiler/byte-comp.lisp
</span><span style="color: #aaaaaa">@@ -38,7 +38,7 @@
</span> ;; 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
;; letter of a to f.
<span style="color: #000000;background-color: #ffdddd">-(defconstant byte-fasl-file-version #x20f)
</span><span style="color: #000000;background-color: #ddffdd">+(defconstant byte-fasl-file-version #x21a)
</span>
(let* ((version-string (format nil "~X" byte-fasl-file-version)))
;; Add :cmu<n> to *features*
</code></pre>
<br>
</li>
<li id='diff-2'>
<a href='https://gitlab.common-lisp.net/cmucl/cmucl/compare/b8654321e9bb003da77dbf9eabd8d69cba7e6b29...db9bcbd3688f1252ff1031cbab00ce6aa2f33c03#diff-2'>
<strong>
src/general-info/release-21a.txt
</strong>
</a>
<hr>
<pre class="highlight"><code><span style="color: #000000;background-color: #ffdddd">--- a/src/general-info/release-21a.txt
</span><span style="color: #000000;background-color: #ddffdd">+++ b/src/general-info/release-21a.txt
</span><span style="color: #aaaaaa">@@ -1,7 +1,5 @@
</span> ========================== C M U C L 21 a =============================
<span style="color: #000000;background-color: #ffdddd">-[In Progress]
-
</span> The CMUCL project is pleased to announce the release of CMUCL 21a.
This is a major release which contains numerous enhancements and
bug fixes from the 20f release.
</code></pre>
<br>
</li>
</div>
<div class='footer' style='margin-top: 10px;'>
<p>
—
<br>
<a href="https://gitlab.common-lisp.net/cmucl/cmucl/compare/b8654321e9bb003da77dbf9eabd8d69cba7e6b29...db9bcbd3688f1252ff1031cbab00ce6aa2f33c03">View it on GitLab</a>
<script type="application/ld+json">{"@context":"http://schema.org","@type":"EmailMessage","action":{"@type":"ViewAction","name":["merge_requests","issues","commit"],"url":"https://gitlab.common-lisp.net/cmucl/cmucl/compare/b8654321e9bb003da77dbf9eabd8d69cba7e6b29...db9bcbd3688f1252ff1031cbab00ce6aa2f33c03"}}</script>
</p>
</div>
</body>
</html>