<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 rtoy-mmap-anon-control-and-binding-stacks 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>
<li>
<strong><a href="https://gitlab.common-lisp.net/cmucl/cmucl/commit/0743dd0055fbe8f66fa86e793e5013d110512cca">0743dd00</a></strong>
<div>
<span>by Raymond Toy</span>
<i>at 2015-09-30T22:17:04Z</i>
</div>
<pre class='commit-message'>Note changes for -quiet flag.</pre>
</li>
<li>
<strong><a href="https://gitlab.common-lisp.net/cmucl/cmucl/commit/586ca74df2c5289c9154e688e092e1b4a3f7d4cf">586ca74d</a></strong>
<div>
<span>by Raymond Toy</span>
<i>at 2015-10-02T18:50:45Z</i>
</div>
<pre class='commit-message'>Merge branch 'master' into rtoy-mmap-anon-control-and-binding-stacks</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/3ee55ba5b826f2dd944c142625ca7858af54c2ee...586ca74df2c5289c9154e688e092e1b4a3f7d4cf#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/3ee55ba5b826f2dd944c142625ca7858af54c2ee...586ca74df2c5289c9154e688e092e1b4a3f7d4cf#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/3ee55ba5b826f2dd944c142625ca7858af54c2ee...586ca74df2c5289c9154e688e092e1b4a3f7d4cf#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.
<span style="color: #aaaaaa">@@ -45,6 +43,10 @@ New in this release:
</span>     * Added clx-inspector module.
     * ASDF documentation included in html, info, and pdf formats in
       contrib/asdf/doc/.
<span style="color: #000000;background-color: #ddffdd">+    * If -quiet is given, don't print out the herald, even if the user
+      init files add things to the herald. (Previously, these would
+      get printed out.)  Also, -quiet no longer removes the herald
+      items; you can sill print out the entire herald using 
</span> 
 
   * ANSI compliance fixes:
</code></pre>

<br>
</li>

</div>
<div class='footer' style='margin-top: 10px;'>
<p>

<br>
<a href="https://gitlab.common-lisp.net/cmucl/cmucl/compare/3ee55ba5b826f2dd944c142625ca7858af54c2ee...586ca74df2c5289c9154e688e092e1b4a3f7d4cf">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/3ee55ba5b826f2dd944c142625ca7858af54c2ee...586ca74df2c5289c9154e688e092e1b4a3f7d4cf"}}</script>
</p>
</div>
</body>
</html>