<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/d437c0f67ff102acce320c282f29977cb81e6a5a">d437c0f6</a></strong>
<div>
<span>by Raymond Toy</span>
<i>at 2016-01-09T01:29:32Z</i>
</div>
<pre class='commit-message'>Update to asdf 3.1.6.9 to get one fix for cmucl.</pre>
</li>
<li>
<strong><a href="https://gitlab.common-lisp.net/cmucl/cmucl/commit/ccabe7f818b2e6ac0478ba1ded47a2d46adb3aef">ccabe7f8</a></strong>
<div>
<span>by Raymond Toy</span>
<i>at 2016-01-09T01:29:32Z</i>
</div>
<pre class='commit-message'>Update from logs</pre>
</li>
</ul>
<h4>5 changed files:</h4>
<ul>
<li class='file-stats'>
<a href='#diff-0'>
src/contrib/asdf/asdf.lisp
</a>
</li>
<li class='file-stats'>
<a href='#diff-1'>
src/contrib/asdf/doc/asdf.html
</a>
</li>
<li class='file-stats'>
<a href='#diff-2'>
src/contrib/asdf/doc/asdf.info
</a>
</li>
<li class='file-stats'>
<a href='#diff-3'>
src/contrib/asdf/doc/asdf.pdf
</a>
</li>
<li class='file-stats'>
<a href='#diff-4'>
src/general-info/release-21b.txt
</a>
</li>
</ul>
<h4>Changes:</h4>
<li id='diff-0'>
<a href='https://gitlab.common-lisp.net/cmucl/cmucl/compare/95f2932bc350b3a89930f45acb09f487ed2661c1...ccabe7f818b2e6ac0478ba1ded47a2d46adb3aef#diff-0'>
<strong>
src/contrib/asdf/asdf.lisp
</strong>
</a>
<hr>
<pre class="highlight"><code><span style="color: #000000;background-color: #ffdddd">--- a/src/contrib/asdf/asdf.lisp
</span><span style="color: #000000;background-color: #ddffdd">+++ b/src/contrib/asdf/asdf.lisp
</span><span style="color: #aaaaaa">@@ -1,5 +1,5 @@
</span><span style="color: #000000;background-color: #ffdddd">-;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; buffer-read-only: t; -*-
-;;; This is ASDF 3.1.6: Another System Definition Facility.
</span><span style="color: #000000;background-color: #ddffdd">+;;; -*- mode: Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; buffer-read-only: t; -*-
+;;; This is ASDF 3.1.6.9: Another System Definition Facility.
</span> ;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
<span style="color: #aaaaaa">@@ -46,43 +46,6 @@
</span> ;;; we can't use defsystem to compile it. Hence, all in one file.
#+xcvb (module ())
<span style="color: #000000;background-color: #ffdddd">-
-(in-package :cl-user)
-
-#+cmu
-(eval-when (:load-toplevel :compile-toplevel :execute)
- (setf ext:*gc-verbose* nil))
-
-;;; pre 1.3.0 ABCL versions do not support the bundle-op on Mac OS X
-#+abcl
-(eval-when (:load-toplevel :compile-toplevel :execute)
- (unless (and (member :darwin *features*)
- (second (third (sys::arglist 'directory))))
- (push :abcl-bundle-op-supported *features*)))
-
-;; Punt on hard package upgrade: from ASDF1 always, and even from ASDF2 on most implementations.
-(eval-when (:load-toplevel :compile-toplevel :execute)
- (unless (member :asdf3 *features*)
- (let* ((existing-version
- (when (find-package :asdf)
- (or (symbol-value (find-symbol (string :*asdf-version*) :asdf))
- (let ((ver (symbol-value (find-symbol (string :*asdf-revision*) :asdf))))
- (etypecase ver
- (string ver)
- (cons (format nil "~{~D~^.~}" ver))
- (null "1.0"))))))
- (first-dot (when existing-version (position #\. existing-version)))
- (second-dot (when first-dot (position #\. existing-version :start (1+ first-dot))))
- (existing-major-minor (subseq existing-version 0 second-dot))
- (existing-version-number (and existing-version (read-from-string existing-major-minor)))
- (away (format nil "~A-~A" :asdf existing-version)))
- (when (and existing-version
- (< existing-version-number
- #+(or allegro clisp lispworks sbcl) 2.0
- #-(or allegro clisp lispworks sbcl) 2.27))
- (rename-package :asdf away)
- (when *load-verbose*
- (format t "~&; Renamed old ~A package away to ~A~%" :asdf away))))))
</span> ;;;; ---------------------------------------------------------------------------
;;;; Handle ASDF package upgrade, including implementation-dependent magic.
;;
<span style="color: #aaaaaa">@@ -822,19 +785,6 @@ UNINTERN -- Remove symbols here from PACKAGE."
</span> #+(or clasp ecl gcl mkcl) (defpackage ,package (:use))
(eval-when (:compile-toplevel :load-toplevel :execute)
,ensure-form))))
<span style="color: #000000;background-color: #ffdddd">-
-;;;; Final tricks to keep various implementations happy.
-;; We want most such tricks in common-lisp.lisp,
-;; but these need to be done before the define-package form there,
-;; that we nevertheless want to be the very first form.
-(eval-when (:load-toplevel :compile-toplevel :execute)
- #+allegro ;; We need to disable autoloading BEFORE any mention of package ASDF.
- (setf excl::*autoload-package-name-alist*
- (remove "asdf" excl::*autoload-package-name-alist*
- :test 'equalp :key 'car)))
-
-;; Compatibility with whoever calls asdf/package
-(define-package :asdf/package (:use :cl :uiop/package) (:reexport :uiop/package))
</span> ;;;; -------------------------------------------------------------------------
;;;; Handle compatibility with multiple implementations.
;;; This file is for papering over the deficiencies and peculiarities
<span style="color: #aaaaaa">@@ -844,10 +794,9 @@ UNINTERN -- Remove symbols here from PACKAGE."
</span> ;;; from this package only common-lisp symbols are exported.
(uiop/package:define-package :uiop/common-lisp
<span style="color: #000000;background-color: #ffdddd">- (:nicknames :uoip/cl :asdf/common-lisp :asdf/cl)
</span><span style="color: #000000;background-color: #ddffdd">+ (:nicknames :uoip/cl)
</span> (:use :uiop/package)
(:use-reexport #-genera :common-lisp #+genera :future-common-lisp)
<span style="color: #000000;background-color: #ffdddd">- (:recycle :uiop/common-lisp :uoip/cl :asdf/common-lisp :asdf/cl :asdf)
</span> #+allegro (:intern #:*acl-warn-save*)
#+cormanlisp (:shadow #:user-homedir-pathname)
#+cormanlisp
<span style="color: #aaaaaa">@@ -856,10 +805,10 @@ UNINTERN -- Remove symbols here from PACKAGE."
</span> #:make-broadcast-stream #:file-namestring)
#+genera (:shadowing-import-from :scl #:boolean)
#+genera (:export #:boolean #:ensure-directories-exist #:read-sequence #:write-sequence)
<span style="color: #000000;background-color: #ffdddd">- #+mcl (:shadow #:user-homedir-pathname))
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or mcl cmucl) (:shadow #:user-homedir-pathname))
</span> (in-package :uiop/common-lisp)
<span style="color: #000000;background-color: #ffdddd">-#-(or abcl allegro clasp clisp clozure cmu cormanlisp ecl gcl genera lispworks mcl mkcl sbcl scl xcl)
</span><span style="color: #000000;background-color: #ddffdd">+#-(or abcl allegro clasp clisp clozure cmucl cormanlisp ecl gcl genera lispworks mcl mkcl sbcl scl xcl)
</span> (error "ASDF is not supported on your implementation. Please help us port it.")
;; (declaim (optimize (speed 1) (debug 3) (safety 3))) ; DON'T: trust implementation defaults.
<span style="color: #aaaaaa">@@ -867,17 +816,23 @@ UNINTERN -- Remove symbols here from PACKAGE."
</span>
;;;; Early meta-level tweaks
<span style="color: #000000;background-color: #ffdddd">-#+(or abcl allegro clasp clisp cmu ecl mkcl clozure lispworks mkcl sbcl scl)
</span><span style="color: #000000;background-color: #ddffdd">+#+(or allegro clasp clisp cmucl ecl mkcl mkcl sbcl)
</span> (eval-when (:load-toplevel :compile-toplevel :execute)
<span style="color: #000000;background-color: #ffdddd">- ;; Check for unicode at runtime, so that a hypothetical FASL compiled with unicode
- ;; but loaded in a non-unicode setting (e.g. on Allegro) won't tell a lie.
</span> (when (and #+allegro (member :ics *features*)
<span style="color: #000000;background-color: #ffdddd">- #+(or clasp clisp cmu ecl mkcl) (member :unicode *features*)
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or clasp clisp cmucl ecl mkcl) (member :unicode *features*)
</span> #+sbcl (member :sb-unicode *features*))
<span style="color: #000000;background-color: #ddffdd">+ ;; Check for unicode at runtime, so that a hypothetical FASL compiled with unicode
+ ;; but loaded in a non-unicode setting (e.g. on Allegro) won't tell a lie.
</span> (pushnew :asdf-unicode *features*)))
#+allegro
(eval-when (:load-toplevel :compile-toplevel :execute)
<span style="color: #000000;background-color: #ddffdd">+ ;; We need to disable autoloading BEFORE any mention of package ASDF.
+ ;; In particular, there must NOT be a mention of package ASDF in the defpackage of this file
+ ;; or any previous file.
+ (setf excl::*autoload-package-name-alist*
+ (remove "asdf" excl::*autoload-package-name-alist*
+ :test 'equalp :key 'car))
</span> (defparameter *acl-warn-save*
(when (boundp 'excl:*warn-on-nested-reader-conditionals*)
excl:*warn-on-nested-reader-conditionals*))
<span style="color: #aaaaaa">@@ -901,7 +856,13 @@ UNINTERN -- Remove symbols here from PACKAGE."
</span> (wait-on-semaphore (external-process-completed proc))))
(values (external-process-%exit-code proc)
(external-process-%status proc))))))
<span style="color: #000000;background-color: #ffdddd">-#+clozure (in-package :uiop/common-lisp)
</span><span style="color: #000000;background-color: #ddffdd">+#+clozure (in-package :uiop/common-lisp) ;; back in this package.
+
+#+cmucl
+(eval-when (:load-toplevel :compile-toplevel :execute)
+ (setf ext:*gc-verbose* nil)
+ (defun user-homedir-pathname ()
+ (first (ext:search-list (cl:user-homedir-pathname)))))
</span>
#+cormanlisp
(eval-when (:load-toplevel :compile-toplevel :execute)
<span style="color: #aaaaaa">@@ -1035,8 +996,6 @@ Return a string made of the parts not omitted or emitted by FROB."
</span> ;;;; General Purpose Utilities for ASDF
(uiop/package:define-package :uiop/utility
<span style="color: #000000;background-color: #ffdddd">- (:nicknames :asdf/utility)
- (:recycle :uiop/utility :asdf/utility :asdf)
</span> (:use :uiop/common-lisp :uiop/package)
;; import and reexport a few things defined in :uiop/common-lisp
(:import-from :uiop/common-lisp #:compatfmt #:loop* #:frob-substrings
<span style="color: #aaaaaa">@@ -1618,11 +1577,11 @@ with later being determined by a lexicographical comparison of minor numbers."
</span> #+allegro 'excl::format-control
#+clisp 'system::$format-control
#+clozure 'ccl::format-control
<span style="color: #000000;background-color: #ffdddd">- #+(or cmu scl) 'conditions::format-control
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or cmucl scl) 'conditions::format-control
</span> #+(or clasp ecl mkcl) 'si::format-control
#+(or gcl lispworks) 'conditions::format-string
#+sbcl 'sb-kernel:format-control
<span style="color: #000000;background-color: #ffdddd">- #-(or abcl allegro clasp clisp clozure cmu ecl gcl lispworks mkcl sbcl scl) nil
</span><span style="color: #000000;background-color: #ddffdd">+ #-(or abcl allegro clasp clisp clozure cmucl ecl gcl lispworks mkcl sbcl scl) nil
</span> "Name of the slot for FORMAT-CONTROL in simple-condition")
(defun match-condition-p (x condition)
<span style="color: #aaaaaa">@@ -1637,7 +1596,7 @@ or a string describing the format-control of a simple-condition."
</span> (function (funcall x condition))
(string (and (typep condition 'simple-condition)
;; On SBCL, it's always set and the check triggers a warning
<span style="color: #000000;background-color: #ffdddd">- #+(or allegro clozure cmu lispworks scl)
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or allegro clozure cmucl lispworks scl)
</span> (slot-boundp condition +simple-condition-format-control-slot+)
(ignore-errors (equal (simple-condition-format-control condition) x))))))
<span style="color: #aaaaaa">@@ -1659,8 +1618,6 @@ or a string describing the format-control of a simple-condition."
</span> ;;;; Access to the Operating System
(uiop/package:define-package :uiop/os
<span style="color: #000000;background-color: #ffdddd">- (:nicknames :asdf/os)
- (:recycle :uiop/os :asdf/os :asdf)
</span> (:use :uiop/common-lisp :uiop/package :uiop/utility)
(:export
#:featurep #:os-unix-p #:os-macosx-p #:os-windows-p #:os-genera-p #:detect-os ;; features
<span style="color: #aaaaaa">@@ -1744,7 +1701,7 @@ use getenvp to return NIL in such a case."
</span> #+(or abcl clasp clisp ecl xcl) (ext:getenv x)
#+allegro (sys:getenv x)
#+clozure (ccl:getenv x)
<span style="color: #000000;background-color: #ffdddd">- #+cmu (unix:unix-getenv x)
</span><span style="color: #000000;background-color: #ddffdd">+ #+cmucl (unix:unix-getenv x)
</span> #+scl (cdr (assoc x ext:*environment-list* :test #'string=))
#+cormanlisp
(let* ((buffer (ct:malloc 1))
<span style="color: #aaaaaa">@@ -1765,7 +1722,7 @@ use getenvp to return NIL in such a case."
</span> (ccl:%get-cstring value))))
#+mkcl (#.(or (find-symbol* 'getenv :si nil) (find-symbol* 'getenv :mk-ext nil)) x)
#+sbcl (sb-ext:posix-getenv x)
<span style="color: #000000;background-color: #ffdddd">- #-(or abcl allegro clasp clisp clozure cmu cormanlisp ecl gcl genera lispworks mcl mkcl sbcl scl xcl)
</span><span style="color: #000000;background-color: #ddffdd">+ #-(or abcl allegro clasp clisp clozure cmucl cormanlisp ecl gcl genera lispworks mcl mkcl sbcl scl xcl)
</span> (error "~S is not supported on your implementation" 'getenv))
(defsetf getenv (x) (val)
<span style="color: #aaaaaa">@@ -1774,12 +1731,12 @@ use getenvp to return NIL in such a case."
</span> #+allegro `(setf (sys:getenv ,x) ,val)
#+clisp `(system::setenv ,x ,val)
#+clozure `(ccl:setenv ,x ,val)
<span style="color: #000000;background-color: #ffdddd">- #+cmu `(unix:unix-setenv ,x ,val 1)
</span><span style="color: #000000;background-color: #ddffdd">+ #+cmucl `(unix:unix-setenv ,x ,val 1)
</span> #+ecl `(ext:setenv ,x ,val)
#+lispworks `(hcl:setenv ,x ,val)
#+mkcl `(mkcl:setenv ,x ,val)
#+sbcl `(progn (require :sb-posix) (symbol-call :sb-posix :setenv ,x ,val 1))
<span style="color: #000000;background-color: #ffdddd">- #-(or allegro clisp clozure cmu ecl lispworks mkcl sbcl)
</span><span style="color: #000000;background-color: #ddffdd">+ #-(or allegro clisp clozure cmucl ecl lispworks mkcl sbcl)
</span> '(error "~S ~S is not supported on your implementation" 'setf 'getenv))
(defun getenvp (x)
<span style="color: #aaaaaa">@@ -1871,7 +1828,7 @@ then returning the non-empty string value of the variable"
</span> ccl::*openmcl-major-version*
ccl::*openmcl-minor-version*
(logand (ccl-fasl-version) #xFF))
<span style="color: #000000;background-color: #ffdddd">- #+cmu (substitute #\- #\/ s)
</span><span style="color: #000000;background-color: #ddffdd">+ #+cmucl (substitute #\- #\/ s)
</span> #+scl (format nil "~A~A" s
;; ANSI upper case vs lower case.
(ecase ext:*case-mode* (:upper "") (:lower "l")))
<span style="color: #aaaaaa">@@ -1905,7 +1862,7 @@ suitable for use as a directory name to segregate Lisp FASLs, C dynamic librarie
</span> (defun hostname ()
"return the hostname of the current host"
;; Note: untested on RMCL
<span style="color: #000000;background-color: #ffdddd">- #+(or abcl clasp clozure cmu ecl genera lispworks mcl mkcl sbcl scl xcl) (machine-instance)
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or abcl clasp clozure cmucl ecl genera lispworks mcl mkcl sbcl scl xcl) (machine-instance)
</span> #+cormanlisp "localhost" ;; is there a better way? Does it matter?
#+allegro (symbol-call :excl.osi :gethostname)
#+clisp (first (split-string (machine-instance) :separator " "))
<span style="color: #aaaaaa">@@ -1915,7 +1872,7 @@ suitable for use as a directory name to segregate Lisp FASLs, C dynamic librarie
</span> ;;; Current directory
(with-upgradability ()
<span style="color: #000000;background-color: #ffdddd">- #+cmu
</span><span style="color: #000000;background-color: #ddffdd">+ #+cmucl
</span> (defun parse-unix-namestring* (unix-namestring)
"variant of LISP::PARSE-UNIX-NAMESTRING that returns a pathname object"
(multiple-value-bind (host device directory name type version)
<span style="color: #aaaaaa">@@ -1929,7 +1886,7 @@ suitable for use as a directory name to segregate Lisp FASLs, C dynamic librarie
</span> #+allegro (excl::current-directory)
#+clisp (ext:default-directory)
#+clozure (ccl:current-directory)
<span style="color: #000000;background-color: #ffdddd">- #+(or cmu scl) (#+cmu parse-unix-namestring* #+scl lisp::parse-unix-namestring
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or cmucl scl) (#+cmucl parse-unix-namestring* #+scl lisp::parse-unix-namestring
</span> (strcat (nth-value 1 (unix:unix-current-directory)) "/"))
#+cormanlisp (pathname (pl::get-current-directory)) ;; Q: what type does it return?
#+(or clasp ecl) (ext:getcwd)
<span style="color: #aaaaaa">@@ -1947,7 +1904,7 @@ suitable for use as a directory name to segregate Lisp FASLs, C dynamic librarie
</span> #+allegro (excl:chdir x)
#+clisp (ext:cd x)
#+clozure (setf (ccl:current-directory) x)
<span style="color: #000000;background-color: #ffdddd">- #+(or cmu scl) (unix:unix-chdir (ext:unix-namestring x))
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or cmucl scl) (unix:unix-chdir (ext:unix-namestring x))
</span> #+cormanlisp (unless (zerop (win32::_chdir (namestring x)))
(error "Could not set current directory to ~A" x))
#+(or clasp ecl) (ext:chdir x)
<span style="color: #aaaaaa">@@ -1955,7 +1912,7 @@ suitable for use as a directory name to segregate Lisp FASLs, C dynamic librarie
</span> #+lispworks (hcl:change-directory x)
#+mkcl (mk-ext:chdir x)
#+sbcl (progn (require :sb-posix) (symbol-call :sb-posix :chdir (sb-ext:native-namestring x)))
<span style="color: #000000;background-color: #ffdddd">- #-(or abcl allegro clasp clisp clozure cmu cormanlisp ecl gcl genera lispworks mkcl sbcl scl xcl)
</span><span style="color: #000000;background-color: #ddffdd">+ #-(or abcl allegro clasp clisp clozure cmucl cormanlisp ecl gcl genera lispworks mkcl sbcl scl xcl)
</span> (error "chdir not supported on your implementation"))))
<span style="color: #aaaaaa">@@ -2048,8 +2005,7 @@ the number having BYTES octets (defaulting to 4)."
</span> ;; which all is necessary prior to any access the filesystem or environment.
(uiop/package:define-package :uiop/pathname
<span style="color: #000000;background-color: #ffdddd">- (:nicknames :asdf/pathname)
- (:recycle :uiop/pathname :asdf/pathname :asdf)
</span><span style="color: #000000;background-color: #ddffdd">+ (:nicknames :asdf/pathname) ;; deprecated. Used by ceramic
</span> (:use :uiop/common-lisp :uiop/package :uiop/utility :uiop/os)
(:export
;; Making and merging pathnames, portably
<span style="color: #aaaaaa">@@ -2092,7 +2048,7 @@ the number having BYTES octets (defaulting to 4)."
</span> implementation's MAKE-PATHNAME and other primitives to a CLHS-standard format
that is a list and not a string."
(cond
<span style="color: #000000;background-color: #ffdddd">- #-(or cmu sbcl scl) ;; these implementations already normalize directory components.
</span><span style="color: #000000;background-color: #ddffdd">+ #-(or cmucl sbcl scl) ;; these implementations already normalize directory components.
</span> ((stringp directory) `(:absolute ,directory))
((or (null directory)
(and (consp directory) (member (first directory) '(:absolute :relative))))
<span style="color: #aaaaaa">@@ -2135,22 +2091,17 @@ by the underlying implementation's MAKE-PATHNAME and other primitives"
</span> ;; See CLHS make-pathname and 19.2.2.2.3.
;; This will be :unspecific if supported, or NIL if not.
(defparameter *unspecific-pathname-type*
<span style="color: #000000;background-color: #ffdddd">- #+(or abcl allegro clozure cmu genera lispworks sbcl scl) :unspecific
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or abcl allegro clozure cmucl genera lispworks sbcl scl) :unspecific
</span> #+(or clasp clisp ecl mkcl gcl xcl #|These haven't been tested:|# cormanlisp mcl) nil
"Unspecific type component to use with the underlying implementation's MAKE-PATHNAME")
<span style="color: #000000;background-color: #ffdddd">- (defun make-pathname* (&rest keys &key (directory nil)
- host (device () #+allegro devicep) name type version defaults
</span><span style="color: #000000;background-color: #ddffdd">+ (defun make-pathname* (&rest keys &key directory host device name type version defaults
</span> #+scl &allow-other-keys)
"Takes arguments like CL:MAKE-PATHNAME in the CLHS, and
tries hard to make a pathname that will actually behave as documented,
<span style="color: #000000;background-color: #ffdddd">- despite the peculiarities of each implementation"
- ;; TODO: reimplement defaulting for MCL, whereby an explicit NIL should override the defaults.
- (declare (ignorable host device directory name type version defaults))
- (apply 'make-pathname
- (append
- #+allegro (when (and devicep (null device)) `(:device :unspecific))
- keys)))
</span><span style="color: #000000;background-color: #ddffdd">+ despite the peculiarities of each implementation. DEPRECATED: just use MAKE-PATHNAME."
+ (declare (ignore host device directory name type version defaults))
+ (apply 'make-pathname keys))
</span>
(defun make-pathname-component-logical (x)
"Make a pathname component suitable for use in a logical-pathname"
<span style="color: #aaaaaa">@@ -2163,7 +2114,7 @@ by the underlying implementation's MAKE-PATHNAME and other primitives"
</span> (defun make-pathname-logical (pathname host)
"Take a PATHNAME's directory, name, type and version components,
and make a new pathname with corresponding components and specified logical HOST"
<span style="color: #000000;background-color: #ffdddd">- (make-pathname*
</span><span style="color: #000000;background-color: #ddffdd">+ (make-pathname
</span> :host host
:directory (make-pathname-component-logical (pathname-directory pathname))
:name (make-pathname-component-logical (pathname-name pathname))
<span style="color: #aaaaaa">@@ -2206,10 +2157,10 @@ by default *DEFAULT-PATHNAME-DEFAULTS*, which cannot be NIL."
</span> (pathname-device defaults)
(merge-pathname-directory-components directory (pathname-directory defaults))
(unspecific-handler defaults))))
<span style="color: #000000;background-color: #ffdddd">- (make-pathname* :host host :device device :directory directory
- :name (funcall unspecific-handler name)
- :type (funcall unspecific-handler type)
- :version (funcall unspecific-handler version))))))
</span><span style="color: #000000;background-color: #ddffdd">+ (make-pathname :host host :device device :directory directory
+ :name (funcall unspecific-handler name)
+ :type (funcall unspecific-handler type)
+ :version (funcall unspecific-handler version))))))
</span>
(defun logical-pathname-p (x)
"is X a logical-pathname?"
<span style="color: #aaaaaa">@@ -2234,13 +2185,13 @@ when merging, making or parsing pathnames"
</span> ;; But CMUCL decides to die on NIL.
;; MCL has issues with make-pathname, nil and defaulting
(declare (ignorable defaults))
<span style="color: #000000;background-color: #ffdddd">- #.`(make-pathname* :directory nil :name nil :type nil :version nil
- :device (or #+(and mkcl unix) :unspecific)
- :host (or #+cmu lisp::*unix-host* #+(and mkcl unix) "localhost")
- #+scl ,@'(:scheme nil :scheme-specific-part nil
- :username nil :password nil :parameters nil :query nil :fragment nil)
- ;; the default shouldn't matter, but we really want something physical
- #-mcl ,@'(:defaults defaults)))
</span><span style="color: #000000;background-color: #ddffdd">+ #.`(make-pathname :directory nil :name nil :type nil :version nil
+ :device (or #+(and mkcl unix) :unspecific)
+ :host (or #+cmucl lisp::*unix-host* #+(and mkcl unix) "localhost")
+ #+scl ,@'(:scheme nil :scheme-specific-part nil
+ :username nil :password nil :parameters nil :query nil :fragment nil)
+ ;; the default shouldn't matter, but we really want something physical
+ #-mcl ,@'(:defaults defaults)))
</span>
(defvar *nil-pathname* (nil-pathname (physicalize-pathname (user-homedir-pathname)))
"A pathname that is as neutral as possible for use as defaults
<span style="color: #aaaaaa">@@ -2318,9 +2269,9 @@ actually-existing file.
</span>
Returns the (parsed) PATHNAME when true"
(when pathname
<span style="color: #000000;background-color: #ffdddd">- (let* ((pathname (pathname pathname))
- (name (pathname-name pathname)))
- (when (not (member name '(nil :unspecific "") :test 'equal))
</span><span style="color: #000000;background-color: #ddffdd">+ (let ((pathname (pathname pathname)))
+ (unless (and (member (pathname-name pathname) '(nil :unspecific "") :test 'equal)
+ (member (pathname-type pathname) '(nil :unspecific "") :test 'equal))
</span> pathname)))))
<span style="color: #aaaaaa">@@ -2337,10 +2288,10 @@ and NIL NAME, TYPE and VERSION components"
</span> i.e. removing one level of depth in the DIRECTORY component. e.g. if pathname is
Unix pathname /foo/bar/baz/file.type then return /foo/bar/"
(when pathname
<span style="color: #000000;background-color: #ffdddd">- (make-pathname* :name nil :type nil :version nil
- :directory (merge-pathname-directory-components
- '(:relative :back) (pathname-directory pathname))
- :defaults pathname)))
</span><span style="color: #000000;background-color: #ddffdd">+ (make-pathname :name nil :type nil :version nil
+ :directory (merge-pathname-directory-components
+ '(:relative :back) (pathname-directory pathname))
+ :defaults pathname)))
</span>
(defun directory-pathname-p (pathname)
"Does PATHNAME represent a directory?
<span style="color: #aaaaaa">@@ -2375,11 +2326,11 @@ actually-existing directory."
</span> ((directory-pathname-p pathspec)
pathspec)
(t
<span style="color: #000000;background-color: #ffdddd">- (make-pathname* :directory (append (or (normalize-pathname-directory-component
- (pathname-directory pathspec))
- (list :relative))
- (list (file-namestring pathspec)))
- :name nil :type nil :version nil :defaults pathspec)))))
</span><span style="color: #000000;background-color: #ddffdd">+ (make-pathname :directory (append (or (normalize-pathname-directory-component
+ (pathname-directory pathspec))
+ (list :relative))
+ (list (file-namestring pathspec)))
+ :name nil :type nil :version nil :defaults pathspec)))))
</span>
;;; Parsing filenames
<span style="color: #aaaaaa">@@ -2512,7 +2463,7 @@ to throw an error if the pathname is absolute"
</span> (t
(split-name-type filename)))
(apply 'ensure-pathname
<span style="color: #000000;background-color: #ffdddd">- (make-pathname*
</span><span style="color: #000000;background-color: #ddffdd">+ (make-pathname
</span> :directory (unless file-only (cons relative path))
:name name :type type
:defaults (or #-mcl defaults *nil-pathname*))
<span style="color: #aaaaaa">@@ -2581,19 +2532,19 @@ then it is merged with the PATHNAME-DIRECTORY-PATHNAME of PATHNAME."
</span>
(defun pathname-root (pathname)
"return the root directory for the host and device of given PATHNAME"
<span style="color: #000000;background-color: #ffdddd">- (make-pathname* :directory '(:absolute)
- :name nil :type nil :version nil
- :defaults pathname ;; host device, and on scl, *some*
- ;; scheme-specific parts: port username password, not others:
- . #.(or #+scl '(:parameters nil :query nil :fragment nil))))
</span><span style="color: #000000;background-color: #ddffdd">+ (make-pathname :directory '(:absolute)
+ :name nil :type nil :version nil
+ :defaults pathname ;; host device, and on scl, *some*
+ ;; scheme-specific parts: port username password, not others:
+ . #.(or #+scl '(:parameters nil :query nil :fragment nil))))
</span>
(defun pathname-host-pathname (pathname)
"return a pathname with the same host as given PATHNAME, and all other fields NIL"
<span style="color: #000000;background-color: #ffdddd">- (make-pathname* :directory nil
- :name nil :type nil :version nil :device nil
- :defaults pathname ;; host device, and on scl, *some*
- ;; scheme-specific parts: port username password, not others:
- . #.(or #+scl '(:parameters nil :query nil :fragment nil))))
</span><span style="color: #000000;background-color: #ddffdd">+ (make-pathname :directory nil
+ :name nil :type nil :version nil :device nil
+ :defaults pathname ;; host device, and on scl, *some*
+ ;; scheme-specific parts: port username password, not others:
+ . #.(or #+scl '(:parameters nil :query nil :fragment nil))))
</span>
(defun ensure-absolute-pathname (path &optional defaults (on-error 'error))
"Given a pathname designator PATH, return an absolute pathname as specified by PATH
<span style="color: #aaaaaa">@@ -2660,12 +2611,12 @@ given DEFAULTS-PATHNAME as a base pathname."
</span> :version (or #-(or allegro abcl xcl) *wild*))
"A pathname object with wildcards for matching any file in a given directory")
(defparameter *wild-directory*
<span style="color: #000000;background-color: #ffdddd">- (make-pathname* :directory `(:relative ,*wild-directory-component*)
- :name nil :type nil :version nil)
</span><span style="color: #000000;background-color: #ddffdd">+ (make-pathname :directory `(:relative ,*wild-directory-component*)
+ :name nil :type nil :version nil)
</span> "A pathname object with wildcards for matching any subdirectory")
(defparameter *wild-inferiors*
<span style="color: #000000;background-color: #ffdddd">- (make-pathname* :directory `(:relative ,*wild-inferiors-component*)
- :name nil :type nil :version nil)
</span><span style="color: #000000;background-color: #ddffdd">+ (make-pathname :directory `(:relative ,*wild-inferiors-component*)
+ :name nil :type nil :version nil)
</span> "A pathname object with wildcards for matching any recursive subdirectory")
(defparameter *wild-path*
(merge-pathnames* *wild-file* *wild-inferiors*)
<span style="color: #aaaaaa">@@ -2692,13 +2643,13 @@ given DEFAULTS-PATHNAME as a base pathname."
</span> (defun relativize-pathname-directory (pathspec)
"Given a PATHNAME, return a relative pathname with otherwise the same components"
(let ((p (pathname pathspec)))
<span style="color: #000000;background-color: #ffdddd">- (make-pathname*
</span><span style="color: #000000;background-color: #ddffdd">+ (make-pathname
</span> :directory (relativize-directory-component (pathname-directory p))
:defaults p)))
(defun directory-separator-for-host (&optional (pathname *default-pathname-defaults*))
"Given a PATHNAME, return the character used to delimit directory names on this host and device."
<span style="color: #000000;background-color: #ffdddd">- (let ((foo (make-pathname* :directory '(:absolute "FOO") :defaults pathname)))
</span><span style="color: #000000;background-color: #ddffdd">+ (let ((foo (make-pathname :directory '(:absolute "FOO") :defaults pathname)))
</span> (last-char (namestring foo))))
#-scl
<span style="color: #aaaaaa">@@ -2722,8 +2673,7 @@ added to its DIRECTORY component. This is useful for output translations."
</span> (multiple-value-bind (relative path filename)
(split-unix-namestring-directory-components root-string :ensure-directory t)
(declare (ignore relative filename))
<span style="color: #000000;background-color: #ffdddd">- (let ((new-base
- (make-pathname* :defaults root :directory `(:absolute ,@path))))
</span><span style="color: #000000;background-color: #ddffdd">+ (let ((new-base (make-pathname :defaults root :directory `(:absolute ,@path))))
</span> (translate-pathname absolute-pathname wild-root (wilden new-base))))))
#+scl
<span style="color: #aaaaaa">@@ -2745,8 +2695,8 @@ added to its DIRECTORY component. This is useful for output translations."
</span> (when (specificp scheme)
(setf prefix (strcat scheme prefix)))
(assert (and directory (eq (first directory) :absolute)))
<span style="color: #000000;background-color: #ffdddd">- (make-pathname* :directory `(:absolute ,prefix ,@(rest directory))
- :defaults pathname)))
</span><span style="color: #000000;background-color: #ddffdd">+ (make-pathname :directory `(:absolute ,prefix ,@(rest directory))
+ :defaults pathname)))
</span> pathname)))
(defun* (translate-pathname*) (path absolute-source destination &optional root source)
<span style="color: #aaaaaa">@@ -2785,8 +2735,6 @@ you need to still be able to use compile-op on that lisp file."))
</span> ;;;; Portability layer around Common Lisp filesystem access
(uiop/package:define-package :uiop/filesystem
<span style="color: #000000;background-color: #ffdddd">- (:nicknames :asdf/filesystem)
- (:recycle :uiop/filesystem :asdf/pathname :asdf)
</span> (:use :uiop/common-lisp :uiop/package :uiop/utility :uiop/os :uiop/pathname)
(:export
;; Native namestrings
<span style="color: #aaaaaa">@@ -2817,9 +2765,9 @@ you need to still be able to use compile-op on that lisp file."))
</span> (when x
(let ((p (pathname x)))
#+clozure (with-pathname-defaults () (ccl:native-translated-namestring p)) ; see ccl bug 978
<span style="color: #000000;background-color: #ffdddd">- #+(or cmu scl) (ext:unix-namestring p nil)
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or cmucl scl) (ext:unix-namestring p nil)
</span> #+sbcl (sb-ext:native-namestring p)
<span style="color: #000000;background-color: #ffdddd">- #-(or clozure cmu sbcl scl)
</span><span style="color: #000000;background-color: #ddffdd">+ #-(or clozure cmucl sbcl scl)
</span> (os-cond
((os-unix-p) (unix-namestring p))
(t (namestring p))))))
<span style="color: #aaaaaa">@@ -2832,8 +2780,10 @@ a CL pathname satisfying all the specified constraints as per ENSURE-PATHNAME"
</span> (when string
(with-pathname-defaults ()
#+clozure (ccl:native-to-pathname string)
<span style="color: #000000;background-color: #ddffdd">+ #+cmucl (uiop/os::parse-unix-namestring* string)
</span> #+sbcl (sb-ext:parse-native-namestring string)
<span style="color: #000000;background-color: #ffdddd">- #-(or clozure sbcl)
</span><span style="color: #000000;background-color: #ddffdd">+ #+scl (lisp::parse-unix-namestring string)
+ #-(or clozure cmucl sbcl scl)
</span> (os-cond
((os-unix-p) (parse-unix-namestring string :ensure-directory ensure-directory))
(t (parse-namestring string))))))
<span style="color: #aaaaaa">@@ -2918,10 +2868,10 @@ or the original (parsed) pathname if it is false (the default)."
</span> (if truename
(probe-file p)
(and
<span style="color: #000000;background-color: #ffdddd">- #+(or cmu scl) (unix:unix-stat (ext:unix-namestring p))
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or cmucl scl) (unix:unix-stat (ext:unix-namestring p))
</span> #+(and lispworks unix) (system:get-file-stat p)
#+sbcl (sb-unix:unix-stat (sb-ext:native-namestring p))
<span style="color: #000000;background-color: #ffdddd">- #-(or cmu (and lispworks unix) sbcl scl) (file-write-date p)
</span><span style="color: #000000;background-color: #ddffdd">+ #-(or cmucl (and lispworks unix) sbcl scl) (file-write-date p)
</span> p))))))
(defun directory-exists-p (x)
<span style="color: #aaaaaa">@@ -2948,7 +2898,7 @@ Try to override the defaults to not resolving symlinks, if implementation allows
</span> (append keys '#.(or #+allegro '(:directories-are-files nil :follow-symbolic-links nil)
#+(or clozure digitool) '(:follow-links nil)
#+clisp '(:circle t :if-does-not-exist :ignore)
<span style="color: #000000;background-color: #ffdddd">- #+(or cmu scl) '(:follow-links nil :truenamep nil)
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or cmucl scl) '(:follow-links nil :truenamep nil)
</span> #+lispworks '(:link-transparency nil)
#+sbcl (when (find-symbol* :resolve-symlinks '#:sb-impl nil)
'(:resolve-symlinks nil))))))
<span style="color: #aaaaaa">@@ -3014,9 +2964,9 @@ The behavior in presence of symlinks is not portable. Use IOlib to handle such s
</span> (let* ((directory (ensure-directory-pathname directory))
#-(or abcl cormanlisp genera xcl)
(wild (merge-pathnames*
<span style="color: #000000;background-color: #ffdddd">- #-(or abcl allegro cmu lispworks sbcl scl xcl)
</span><span style="color: #000000;background-color: #ddffdd">+ #-(or abcl allegro cmucl lispworks sbcl scl xcl)
</span> *wild-directory*
<span style="color: #000000;background-color: #ffdddd">- #+(or abcl allegro cmu lispworks sbcl scl xcl) "*.*"
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or abcl allegro cmucl lispworks sbcl scl xcl) "*.*"
</span> directory))
(dirs
#-(or abcl cormanlisp genera xcl)
<span style="color: #aaaaaa">@@ -3025,17 +2975,17 @@ The behavior in presence of symlinks is not portable. Use IOlib to handle such s
</span> #+mcl '(:directories t))))
#+(or abcl xcl) (system:list-directory directory)
#+cormanlisp (cl::directory-subdirs directory)
<span style="color: #000000;background-color: #ffdddd">- #+genera (fs:directory-list directory))
- #+(or abcl allegro cmu genera lispworks sbcl scl xcl)
</span><span style="color: #000000;background-color: #ddffdd">+ #+genera (handler-case (fs:directory-list directory) (fs:directory-not-found () nil)))
+ #+(or abcl allegro cmucl genera lispworks sbcl scl xcl)
</span> (dirs (loop :for x :in dirs
:for d = #+(or abcl xcl) (extensions:probe-directory x)
#+allegro (excl:probe-directory x)
<span style="color: #000000;background-color: #ffdddd">- #+(or cmu sbcl scl) (directory-pathname-p x)
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or cmucl sbcl scl) (directory-pathname-p x)
</span> #+genera (getf (cdr x) :directory)
#+lispworks (lw:file-directory-p x)
:when d :collect #+(or abcl allegro xcl) d
#+genera (ensure-directory-pathname (first x))
<span style="color: #000000;background-color: #ffdddd">- #+(or cmu lispworks sbcl scl) x)))
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or cmucl lispworks sbcl scl) x)))
</span> (filter-logical-directory-results
directory dirs
(let ((prefix (or (normalize-pathname-directory-component (pathname-directory directory))
<span style="color: #aaaaaa">@@ -3080,13 +3030,13 @@ The behavior in presence of symlinks is not portable. Use IOlib to handle such s
</span> (loop :while up-components :do
(if-let (parent
(ignore-errors
<span style="color: #000000;background-color: #ffdddd">- (probe-file* (make-pathname* :directory `(:absolute ,@(reverse up-components))
- :name nil :type nil :version nil :defaults p))))
</span><span style="color: #000000;background-color: #ddffdd">+ (probe-file* (make-pathname :directory `(:absolute ,@(reverse up-components))
+ :name nil :type nil :version nil :defaults p))))
</span> (if-let (simplified
(ignore-errors
(merge-pathnames*
<span style="color: #000000;background-color: #ffdddd">- (make-pathname* :directory `(:relative ,@down-components)
- :defaults p)
</span><span style="color: #000000;background-color: #ddffdd">+ (make-pathname :directory `(:relative ,@down-components)
+ :defaults p)
</span> (ensure-directory-pathname parent))))
(return simplified)))
(push (pop up-components) down-components)
<span style="color: #aaaaaa">@@ -3332,7 +3282,7 @@ NILs."
</span> #+(or allegro clasp ecl mkcl) #p"SYS:"
;;#+clisp custom:*lib-directory* ; causes failure in asdf-pathname-test(!)
#+clozure #p"ccl:"
<span style="color: #000000;background-color: #ffdddd">- #+cmu (ignore-errors (pathname-parent-directory-pathname (truename #p"modules:")))
</span><span style="color: #000000;background-color: #ddffdd">+ #+cmucl (ignore-errors (pathname-parent-directory-pathname (truename #p"modules:")))
</span> #+gcl system::*system-directory*
#+lispworks lispworks:*lispworks-directory*
#+sbcl (if-let (it (find-symbol* :sbcl-homedir-pathname :sb-int nil))
<span style="color: #aaaaaa">@@ -3386,10 +3336,10 @@ in an atomic way if the implementation allows."
</span> #+allegro (excl:delete-directory directory-pathname)
#+clisp (ext:delete-directory directory-pathname)
#+clozure (ccl::delete-empty-directory directory-pathname)
<span style="color: #000000;background-color: #ffdddd">- #+(or cmu scl) (multiple-value-bind (ok errno)
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or cmucl scl) (multiple-value-bind (ok errno)
</span> (unix:unix-rmdir (native-namestring directory-pathname))
(unless ok
<span style="color: #000000;background-color: #ffdddd">- #+cmu (error "Error number ~A when trying to delete directory ~A"
</span><span style="color: #000000;background-color: #ddffdd">+ #+cmucl (error "Error number ~A when trying to delete directory ~A"
</span> errno directory-pathname)
#+scl (error "~@<Error deleting ~S: ~A~@:>"
directory-pathname (unix:get-unix-error-msg errno))))
<span style="color: #aaaaaa">@@ -3402,7 +3352,7 @@ in an atomic way if the implementation allows."
</span> `(,dd directory-pathname) ;; requires SBCL 1.0.44 or later
`(progn (require :sb-posix) (symbol-call :sb-posix :rmdir directory-pathname)))
#+xcl (symbol-call :uiop :run-program `("rmdir" ,(native-namestring directory-pathname)))
<span style="color: #000000;background-color: #ffdddd">- #-(or abcl allegro clasp clisp clozure cmu cormanlisp digitool ecl gcl genera lispworks mkcl sbcl scl xcl)
</span><span style="color: #000000;background-color: #ddffdd">+ #-(or abcl allegro clasp clisp clozure cmucl cormanlisp digitool ecl gcl genera lispworks mkcl sbcl scl xcl)
</span> (error "~S not implemented on ~S" 'delete-empty-directory (implementation-type))) ; genera
(defun delete-directory-tree (directory-pathname &key (validate nil validatep) (if-does-not-exist :error))
<span style="color: #aaaaaa">@@ -3436,7 +3386,7 @@ If you're suicidal or extremely confident, just use :VALIDATE T."
</span> (error "~S was asked to delete ~S but the directory does not exist"
'delete-directory-tree directory-pathname))
(:ignore nil)))
<span style="color: #000000;background-color: #ffdddd">- #-(or allegro cmu clozure genera sbcl scl)
</span><span style="color: #000000;background-color: #ddffdd">+ #-(or allegro cmucl clozure genera sbcl scl)
</span> ((os-unix-p) ;; On Unix, don't recursively walk the directory and delete everything in Lisp,
;; except on implementations where we can prevent DIRECTORY from following symlinks;
;; instead spawn a standard external program to do the dirty work.
<span style="color: #aaaaaa">@@ -3463,8 +3413,6 @@ If you're suicidal or extremely confident, just use :VALIDATE T."
</span> ;;;; Utilities related to streams
(uiop/package:define-package :uiop/stream
<span style="color: #000000;background-color: #ffdddd">- (:nicknames :asdf/stream)
- (:recycle :uiop/stream :asdf/stream :asdf)
</span> (:use :uiop/common-lisp :uiop/package :uiop/utility :uiop/os :uiop/pathname :uiop/filesystem)
(:export
#:*default-stream-element-type*
<span style="color: #aaaaaa">@@ -3495,7 +3443,7 @@ If you're suicidal or extremely confident, just use :VALIDATE T."
</span>
(with-upgradability ()
(defvar *default-stream-element-type*
<span style="color: #000000;background-color: #ffdddd">- (or #+(or abcl cmu cormanlisp scl xcl) 'character
</span><span style="color: #000000;background-color: #ddffdd">+ (or #+(or abcl cmucl cormanlisp scl xcl) 'character
</span> #+lispworks 'lw:simple-char
:default)
"default element-type for open (depends on the current CL implementation)")
<span style="color: #aaaaaa">@@ -3506,7 +3454,7 @@ If you're suicidal or extremely confident, just use :VALIDATE T."
</span> (defun setup-stdin ()
(setf *stdin*
#.(or #+clozure 'ccl::*stdin*
<span style="color: #000000;background-color: #ffdddd">- #+(or cmu scl) 'system:*stdin*
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or cmucl scl) 'system:*stdin*
</span> #+(or clasp ecl) 'ext::+process-standard-input+
#+sbcl 'sb-sys:*stdin*
'*standard-input*)))
<span style="color: #aaaaaa">@@ -3517,7 +3465,7 @@ If you're suicidal or extremely confident, just use :VALIDATE T."
</span> (defun setup-stdout ()
(setf *stdout*
#.(or #+clozure 'ccl::*stdout*
<span style="color: #000000;background-color: #ffdddd">- #+(or cmu scl) 'system:*stdout*
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or cmucl scl) 'system:*stdout*
</span> #+(or clasp ecl) 'ext::+process-standard-output+
#+sbcl 'sb-sys:*stdout*
'*standard-output*)))
<span style="color: #aaaaaa">@@ -3529,7 +3477,7 @@ If you're suicidal or extremely confident, just use :VALIDATE T."
</span> (setf *stderr*
#.(or #+allegro 'excl::*stderr*
#+clozure 'ccl::*stderr*
<span style="color: #000000;background-color: #ffdddd">- #+(or cmu scl) 'system:*stderr*
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or cmucl scl) 'system:*stderr*
</span> #+(or clasp ecl) 'ext::+process-error-output+
#+sbcl 'sb-sys:*stderr*
'*error-output*)))
<span style="color: #aaaaaa">@@ -4027,7 +3975,7 @@ ELEMENT-TYPE (defaults to *DEFAULT-STREAM-ELEMENT-TYPE*) and
</span> EXTERNAL-FORMAT (defaults to *UTF-8-EXTERNAL-FORMAT*).
If WANT-STREAM-P is true (the defaults to T), then THUNK will then be CALL-FUNCTION'ed
with the stream and the pathname (if WANT-PATHNAME-P is true, defaults to T),
<span style="color: #000000;background-color: #ffdddd">-and stream with be closed after the THUNK exits (either normally or abnormally).
</span><span style="color: #000000;background-color: #ddffdd">+and stream will be closed after the THUNK exits (either normally or abnormally).
</span> If WANT-STREAM-P is false, then WANT-PATHAME-P must be true, and then
THUNK is only CALL-FUNCTION'ed after the stream is closed, with the pathname as argument.
Upon exit of THUNK, the AFTER thunk if defined is CALL-FUNCTION'ed with the pathname as argument.
<span style="color: #aaaaaa">@@ -4164,8 +4112,6 @@ For the latter case, we ought pick a random suffix and atomically open it."
</span> ;;;; Starting, Stopping, Dumping a Lisp image
(uiop/package:define-package :uiop/image
<span style="color: #000000;background-color: #ffdddd">- (:nicknames :asdf/image)
- (:recycle :uiop/image :asdf/image :xcvb-driver)
</span> (:use :uiop/common-lisp :uiop/package :uiop/utility :uiop/pathname :uiop/stream :uiop/os)
(:export
#:*image-dumped-p* #:raw-command-line-arguments #:*command-line-arguments*
<span style="color: #aaaaaa">@@ -4231,7 +4177,7 @@ This is designed to abstract away the implementation specific quit forms."
</span> #+clisp (ext:quit code)
#+clozure (ccl:quit code)
#+cormanlisp (win32:exitprocess code)
<span style="color: #000000;background-color: #ffdddd">- #+(or cmu scl) (unix:unix-exit code)
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or cmucl scl) (unix:unix-exit code)
</span> #+gcl (system:quit code)
#+genera (error "~S: You probably don't want to Halt Genera. (code: ~S)" 'quit code)
#+lispworks (lispworks:quit :status code :confirm nil :return nil :ignore-errors-p t)
<span style="color: #aaaaaa">@@ -4242,7 +4188,7 @@ This is designed to abstract away the implementation specific quit forms."
</span> (cond
(exit `(,exit :code code :abort (not finish-output)))
(quit `(,quit :unix-status code :recklessly-p (not finish-output)))))
<span style="color: #000000;background-color: #ffdddd">- #-(or abcl allegro clasp clisp clozure cmu ecl gcl genera lispworks mcl mkcl sbcl scl xcl)
</span><span style="color: #000000;background-color: #ddffdd">+ #-(or abcl allegro clasp clisp clozure cmucl ecl gcl genera lispworks mcl mkcl sbcl scl xcl)
</span> (error "~S called with exit code ~S but there's no quitting on this implementation" 'quit code))
(defun die (code format &rest arguments)
<span style="color: #aaaaaa">@@ -4285,7 +4231,7 @@ This is designed to abstract away the implementation specific quit forms."
</span> #+clozure (ccl:print-call-history :count count :start-frame-number 1)
#+mcl (ccl:print-call-history :detailed-p nil)
(finish-output stream))
<span style="color: #000000;background-color: #ffdddd">- #+(or cmu scl)
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or cmucl scl)
</span> (let ((debug:*debug-print-level* *print-level*)
(debug:*debug-print-length* *print-length*))
(debug:backtrace (or count most-positive-fixnum) stream))
<span style="color: #aaaaaa">@@ -4389,14 +4335,14 @@ depending on whether *LISP-INTERACTION* is set, enter debugger or die"
</span> #+(or clasp ecl) (loop :for i :from 0 :below (si:argc) :collect (si:argv i))
#+clisp (coerce (ext:argv) 'list)
#+clozure ccl:*command-line-argument-list*
<span style="color: #000000;background-color: #ffdddd">- #+(or cmu scl) extensions:*command-line-strings*
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or cmucl scl) extensions:*command-line-strings*
</span> #+gcl si:*command-args*
#+(or genera mcl) nil
#+lispworks sys:*line-arguments-list*
#+mkcl (loop :for i :from 0 :below (mkcl:argc) :collect (mkcl:argv i))
#+sbcl sb-ext:*posix-argv*
#+xcl system:*argv*
<span style="color: #000000;background-color: #ffdddd">- #-(or abcl allegro clasp clisp clozure cmu ecl gcl genera lispworks mcl mkcl sbcl scl xcl)
</span><span style="color: #000000;background-color: #ddffdd">+ #-(or abcl allegro clasp clisp clozure cmucl ecl gcl genera lispworks mcl mkcl sbcl scl xcl)
</span> (error "raw-command-line-arguments not implemented yet"))
(defun command-line-arguments (&optional (arguments (raw-command-line-arguments)))
<span style="color: #aaaaaa">@@ -4425,7 +4371,7 @@ Otherwise, return NIL."
</span> (cond
((eq *image-dumped-p* :executable) ; yes, this ARGV0 is our argv0 !
;; NB: not currently available on ABCL, Corman, Genera, MCL
<span style="color: #000000;background-color: #ffdddd">- (or #+(or allegro clisp clozure cmu gcl lispworks sbcl scl xcl)
</span><span style="color: #000000;background-color: #ddffdd">+ (or #+(or allegro clisp clozure cmucl gcl lispworks sbcl scl xcl)
</span> (first (raw-command-line-arguments))
#+(or clasp ecl) (si:argv 0) #+mkcl (mkcl:argv 0)))
(t ;; argv[0] is the name of the interpreter.
<span style="color: #aaaaaa">@@ -4515,7 +4461,7 @@ or COMPRESSION on SBCL, and APPLICATION-TYPE on SBCL/Windows."
</span> (setf *image-dump-hook* dump-hook)
(call-image-dump-hook)
(setf *image-restored-p* nil)
<span style="color: #000000;background-color: #ffdddd">- #-(or clisp clozure cmu lispworks sbcl scl)
</span><span style="color: #000000;background-color: #ddffdd">+ #-(or clisp clozure cmucl lispworks sbcl scl)
</span> (when executable
(error "Dumping an executable is not supported on this implementation! Aborting."))
#+allegro
<span style="color: #aaaaaa">@@ -4543,13 +4489,13 @@ or COMPRESSION on SBCL, and APPLICATION-TYPE on SBCL/Windows."
</span> (funcall (fdefinition 'ccl::write-elf-symbols-to-file) path)
(dump path))
(dump t)))
<span style="color: #000000;background-color: #ffdddd">- #+(or cmu scl)
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or cmucl scl)
</span> (progn
(ext:gc :full t)
(setf ext:*batch-mode* nil)
(setf ext::*gc-run-time* 0)
(apply 'ext:save-lisp filename
<span style="color: #000000;background-color: #ffdddd">- #+cmu :executable #+cmu t
</span><span style="color: #000000;background-color: #ddffdd">+ #+cmucl :executable #+cmucl t
</span> (when executable '(:init-function restore-image :process-command-line nil))))
#+gcl
(progn
<span style="color: #aaaaaa">@@ -4572,7 +4518,7 @@ or COMPRESSION on SBCL, and APPLICATION-TYPE on SBCL/Windows."
</span> #+(and sbcl os-windows) ;; passing :application-type :gui will disable the console window.
;; the default is :console - only works with SBCL 1.1.15 or later.
(when application-type (list :application-type application-type)))))
<span style="color: #000000;background-color: #ffdddd">- #-(or allegro clisp clozure cmu gcl lispworks sbcl scl)
</span><span style="color: #000000;background-color: #ddffdd">+ #-(or allegro clisp clozure cmucl gcl lispworks sbcl scl)
</span> (error "Can't ~S ~S: UIOP doesn't support image dumping with ~A.~%"
'dump-image filename (nth-value 1 (implementation-type))))
<span style="color: #aaaaaa">@@ -4636,8 +4582,7 @@ or COMPRESSION on SBCL, and APPLICATION-TYPE on SBCL/Windows."
</span> ;;;; run-program initially from xcvb-driver.
(uiop/package:define-package :uiop/run-program
<span style="color: #000000;background-color: #ffdddd">- (:nicknames :asdf/run-program)
- (:recycle :uiop/run-program :asdf/run-program :xcvb-driver)
</span><span style="color: #000000;background-color: #ddffdd">+ (:nicknames :asdf/run-program) ; OBSOLETE. Used by cl-sane, printv.
</span> (:use :uiop/common-lisp :uiop/package :uiop/utility
:uiop/pathname :uiop/os :uiop/filesystem :uiop/stream)
(:export
<span style="color: #aaaaaa">@@ -5554,8 +5499,7 @@ or an indication of failure via the EXIT-CODE of the process"
</span> ;;;; Support to build (compile and load) Lisp files
(uiop/package:define-package :uiop/lisp-build
<span style="color: #000000;background-color: #ffdddd">- (:nicknames :asdf/lisp-build)
- (:recycle :uiop/lisp-build :asdf/lisp-build :asdf)
</span><span style="color: #000000;background-color: #ddffdd">+ (:nicknames :asdf/lisp-build) ;; OBSOLETE, used by slime/contrib/swank-asdf.lisp
</span> (:use :uiop/common-lisp :uiop/package :uiop/utility
:uiop/os :uiop/pathname :uiop/filesystem :uiop/stream :uiop/image)
(:export
<span style="color: #aaaaaa">@@ -5618,7 +5562,7 @@ This can help you produce more deterministic output for FASLs."))
</span> #+clisp '() ;; system::*optimize* is a constant hash-table! (with non-constant contents)
#+clozure '(ccl::*nx-speed* ccl::*nx-space* ccl::*nx-safety*
ccl::*nx-debug* ccl::*nx-cspeed*)
<span style="color: #000000;background-color: #ffdddd">- #+(or cmu scl) '(c::*default-cookie*)
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or cmucl scl) '(c::*default-cookie*)
</span> #+(and ecl (not clasp)) (unless (use-ecl-byte-compiler-p) '(c::*speed* c::*space* c::*safety* c::*debug*))
#+clasp '()
#+gcl '(compiler::*speed* compiler::*space* compiler::*compiler-new-safety* compiler::*debug*)
<span style="color: #aaaaaa">@@ -5627,11 +5571,11 @@ This can help you produce more deterministic output for FASLs."))
</span> #+sbcl '(sb-c::*policy*)))
(defun get-optimization-settings ()
"Get current compiler optimization settings, ready to PROCLAIM again"
<span style="color: #000000;background-color: #ffdddd">- #-(or abcl allegro clasp clisp clozure cmu ecl lispworks mkcl sbcl scl xcl)
</span><span style="color: #000000;background-color: #ddffdd">+ #-(or abcl allegro clasp clisp clozure cmucl ecl lispworks mkcl sbcl scl xcl)
</span> (warn "~S does not support ~S. Please help me fix that."
'get-optimization-settings (implementation-type))
<span style="color: #000000;background-color: #ffdddd">- #+(or abcl allegro clasp clisp clozure cmu ecl lispworks mkcl sbcl scl xcl)
- (let ((settings '(speed space safety debug compilation-speed #+(or cmu scl) c::brevity)))
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or abcl allegro clasp clisp clozure cmucl ecl lispworks mkcl sbcl scl xcl)
+ (let ((settings '(speed space safety debug compilation-speed #+(or cmucl scl) c::brevity)))
</span> #.`(loop #+(or allegro clozure)
,@'(:with info = #+allegro (sys:declaration-information 'optimize)
#+clozure (ccl:declaration-information 'optimize nil))
<span style="color: #aaaaaa">@@ -5640,7 +5584,7 @@ This can help you produce more deterministic output for FASLs."))
</span> :for y = (or #+(or allegro clozure) (second (assoc x info)) ; normalize order
#+clisp (gethash x system::*optimize* 1)
#+(or abcl clasp ecl mkcl xcl) (symbol-value v)
<span style="color: #000000;background-color: #ffdddd">- #+(or cmu scl) (slot-value c::*default-cookie*
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or cmucl scl) (slot-value c::*default-cookie*
</span> (case x (compilation-speed 'c::cspeed)
(otherwise x)))
#+lispworks (slot-value compiler::*optimization-level* x)
<span style="color: #aaaaaa">@@ -5682,7 +5626,7 @@ This can help you produce more deterministic output for FASLs."))
</span> (defvar *usual-uninteresting-conditions*
(append
;;#+clozure '(ccl:compiler-warning)
<span style="color: #000000;background-color: #ffdddd">- #+cmu '("Deleting unreachable code.")
</span><span style="color: #000000;background-color: #ddffdd">+ #+cmucl '("Deleting unreachable code.")
</span> #+lispworks '("~S being redefined in ~A (previously in ~A)."
"~S defined more than once in ~A.") ;; lispworks gets confused by eval-when.
#+sbcl
<span style="color: #aaaaaa">@@ -5867,7 +5811,7 @@ Simple means made of symbols, numbers, characters, simple-strings, pathnames, co
</span> :warning-type warning-type
:args (destructuring-bind (fun . more) args
(cons (symbolify-function-name fun) more))))))
<span style="color: #000000;background-color: #ffdddd">- #+(or cmu scl)
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or cmucl scl)
</span> (defun reify-undefined-warning (warning)
;; Extracting undefined-warnings from the compilation-unit
;; To be passed through the above reify/unreify link, it must be a "simple-sexp"
<span style="color: #aaaaaa">@@ -5919,7 +5863,7 @@ WITH-COMPILATION-UNIT. One of three functions required for deferred-warnings sup
</span> (if-let (dw ccl::*outstanding-deferred-warnings*)
(let ((mdw (ccl::ensure-merged-deferred-warnings dw)))
(ccl::deferred-warnings.warnings mdw))))
<span style="color: #000000;background-color: #ffdddd">- #+(or cmu scl)
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or cmucl scl)
</span> (when lisp::*in-compilation-unit*
;; Try to send nothing through the pipe if nothing needs to be accumulated
`(,@(when c::*undefined-warnings*
<span style="color: #aaaaaa">@@ -5965,7 +5909,7 @@ One of three functions required for deferred-warnings support in ASDF."
</span> (setf ccl::*outstanding-deferred-warnings* (ccl::%defer-warnings t)))))
(appendf (ccl::deferred-warnings.warnings dw)
(mapcar 'unreify-deferred-warning reified-deferred-warnings)))
<span style="color: #000000;background-color: #ffdddd">- #+(or cmu scl)
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or cmucl scl)
</span> (dolist (item reified-deferred-warnings)
;; Each item is (symbol . adjustment) where the adjustment depends on the symbol.
;; For *undefined-warnings*, the adjustment is a list of initargs.
<span style="color: #aaaaaa">@@ -6028,7 +5972,7 @@ One of three functions required for deferred-warnings support in ASDF."
</span> (if-let (dw ccl::*outstanding-deferred-warnings*)
(let ((mdw (ccl::ensure-merged-deferred-warnings dw)))
(setf (ccl::deferred-warnings.warnings mdw) nil)))
<span style="color: #000000;background-color: #ffdddd">- #+(or cmu scl)
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or cmucl scl)
</span> (when lisp::*in-compilation-unit*
(setf c::*undefined-warnings* nil
c::*compiler-error-count* 0
<span style="color: #aaaaaa">@@ -6344,8 +6288,7 @@ it will filter them appropriately."
</span> ;;;; Generic support for configuration files
(uiop/package:define-package :uiop/configuration
<span style="color: #000000;background-color: #ffdddd">- (:nicknames :asdf/configuration)
- (:recycle :uiop/configuration :asdf/configuration :asdf)
</span><span style="color: #000000;background-color: #ddffdd">+ (:recycle :uiop/configuration :asdf/configuration) ;; necessary to upgrade from 2.27.
</span> (:use :uiop/common-lisp :uiop/utility
:uiop/os :uiop/pathname :uiop/filesystem :uiop/stream :uiop/image :uiop/lisp-build)
(:export
<span style="color: #aaaaaa">@@ -6541,7 +6484,7 @@ directive.")
</span> ;; but what it means to the output-translations is
;; "relative to the root of the source pathname's host and device".
(return-from resolve-absolute-location
<span style="color: #000000;background-color: #ffdddd">- (let ((p (make-pathname* :directory '(:relative))))
</span><span style="color: #000000;background-color: #ddffdd">+ (let ((p (make-pathname :directory '(:relative))))
</span> (if wilden (wilden p) p))))
((eql :home) (user-homedir-pathname))
((eql :here) (resolve-absolute-location
<span style="color: #aaaaaa">@@ -6758,14 +6701,11 @@ objects. Side-effects for cached file location computation."
</span> ;;; Hacks for backward-compatibility of the driver
(uiop/package:define-package :uiop/backward-driver
<span style="color: #000000;background-color: #ffdddd">- (:nicknames :asdf/backward-driver)
- (:recycle :uiop/backward-driver :asdf/backward-driver :asdf)
</span> (:use :uiop/common-lisp :uiop/package :uiop/utility
:uiop/pathname :uiop/stream :uiop/os :uiop/image
:uiop/run-program :uiop/lisp-build :uiop/configuration)
(:export
<span style="color: #000000;background-color: #ffdddd">- #:coerce-pathname #:component-name-to-pathname-components
- #+(or clasp ecl mkcl) #:compile-file-keeping-object
</span><span style="color: #000000;background-color: #ddffdd">+ #:coerce-pathname
</span> #:user-configuration-directories #:system-configuration-directories
#:in-first-directory #:in-user-configuration-directory #:in-system-configuration-directory
))
<span style="color: #aaaaaa">@@ -6776,27 +6716,11 @@ objects. Side-effects for cached file location computation."
</span> (with-upgradability ()
(defun coerce-pathname (name &key type defaults)
;; For backward-compatibility only, for people using internals
<span style="color: #000000;background-color: #ffdddd">- ;; Reported users in quicklisp: hu.dwim.asdf, asdf-utils, xcvb
- ;; Will be removed after 2014-01-16.
</span><span style="color: #000000;background-color: #ddffdd">+ ;; Reported users in quicklisp 2015-11: hu.dwim.asdf (removed in next release)
+ ;; Will be removed after 2015-12.
</span> ;;(warn "Please don't use ASDF::COERCE-PATHNAME. Use ASDF/PATHNAME:PARSE-UNIX-NAMESTRING.")
(parse-unix-namestring name :type type :defaults defaults))
<span style="color: #000000;background-color: #ffdddd">- (defun component-name-to-pathname-components (unix-style-namestring
- &key force-directory force-relative)
- ;; Will be removed after 2014-01-16.
- ;; (warn "Please don't use ASDF::COMPONENT-NAME-TO-PATHNAME-COMPONENTS, use SPLIT-UNIX-NAMESTRING-DIRECTORY-COMPONENTS")
- (multiple-value-bind (relabs path filename file-only)
- (split-unix-namestring-directory-components
- unix-style-namestring :ensure-directory force-directory)
- (declare (ignore file-only))
- (when (and force-relative (not (eq relabs :relative)))
- (error (compatfmt "~@<Absolute pathname designator not allowed: ~3i~_~S~@:>")
- unix-style-namestring))
- (values relabs path filename)))
-
- #+(or clasp ecl mkcl)
- (defun compile-file-keeping-object (&rest args) (apply #'compile-file* args))
-
</span> ;; Backward compatibility for ASDF 2.27 to 3.1.4
(defun user-configuration-directories ()
"Return the current user's list of user configuration directories
<span style="color: #aaaaaa">@@ -6829,7 +6753,8 @@ for common-lisp. DEPRECATED."
</span> ;;;; Re-export all the functionality in UIOP
(uiop/package:define-package :uiop/driver
<span style="color: #000000;background-color: #ffdddd">- (:nicknames :uiop :asdf/driver :asdf-driver :asdf-utils)
</span><span style="color: #000000;background-color: #ddffdd">+ (:nicknames :uiop :asdf/driver) ;; asdf/driver is obsolete (uiop isn't);
+ ;; but asdf/driver is still used by swap-bytes, static-vectors.
</span> (:use :uiop/common-lisp)
;; NB: not reexporting uiop/common-lisp
;; which include all of CL with compatibility modifications on select platforms,
<span style="color: #aaaaaa">@@ -6837,9 +6762,8 @@ for common-lisp. DEPRECATED."
</span> ;; or :use (closer-common-lisp uiop), etc.
(:use-reexport
:uiop/package :uiop/utility
<span style="color: #000000;background-color: #ffdddd">- :uiop/os :uiop/pathname :uiop/stream :uiop/filesystem :uiop/image
- :uiop/run-program :uiop/lisp-build
- :uiop/configuration :uiop/backward-driver))
</span><span style="color: #000000;background-color: #ddffdd">+ :uiop/os :uiop/pathname :uiop/filesystem :uiop/stream :uiop/image
+ :uiop/run-program :uiop/lisp-build :uiop/configuration :uiop/backward-driver))
</span>
;; Provide both lowercase and uppercase, to satisfy more people.
(provide "uiop") (provide "UIOP")
<span style="color: #aaaaaa">@@ -6853,7 +6777,7 @@ for common-lisp. DEPRECATED."
</span> (:export
#:asdf-version #:*previous-asdf-versions* #:*asdf-version*
#:asdf-message #:*verbose-out*
<span style="color: #000000;background-color: #ffdddd">- #:upgrading-p #:when-upgrading #:upgrade-asdf #:asdf-upgrade-error #:defparameter*
</span><span style="color: #000000;background-color: #ddffdd">+ #:upgrading-p #:when-upgrading #:upgrade-asdf #:defparameter*
</span> #:*post-upgrade-cleanup-hook* #:*post-upgrade-restart-hook* #:cleanup-upgraded-asdf
;; There will be no symbol left behind!
#:intern*)
<span style="color: #aaaaaa">@@ -6875,7 +6799,16 @@ You can compare this string with e.g.: (ASDF:VERSION-SATISFIES (ASDF:ASDF-VERSIO
</span> (cons (format nil "~{~D~^.~}" rev))
(null "1.0"))))))
;; Important: define *p-a-v* /before/ *a-v* so that it initializes correctly.
<span style="color: #000000;background-color: #ffdddd">- (defvar *previous-asdf-versions* (if-let (previous (asdf-version)) (list previous)))
</span><span style="color: #000000;background-color: #ddffdd">+ (defvar *previous-asdf-versions*
+ (let ((previous (asdf-version)))
+ (when previous
+ ;; Punt on hard package upgrade: from ASDF1 or ASDF2
+ (when (version< previous "2.27") ;; 2.27 is the first to have the :asdf3 feature.
+ (let ((away (format nil "~A-~A" :asdf previous)))
+ (rename-package :asdf away)
+ (when *load-verbose*
+ (format t "~&; Renamed old ~A package away to ~A~%" :asdf away)))))
+ (list previous)))
</span> (defvar *asdf-version* nil)
;; We need to clear systems from versions yet older than the below:
(defparameter *oldest-forward-compatible-asdf-version* "2.33") ;; 2.32.13 renames a slot in component.
<span style="color: #aaaaaa">@@ -6912,7 +6845,7 @@ previously-loaded version of ASDF."
</span> ;; "3.4.5.67" would be a development version in the official branch, on top of 3.4.5.
;; "3.4.5.0.8" would be your eighth local modification of official release 3.4.5
;; "3.4.5.67.8" would be your eighth local modification of development version 3.4.5.67
<span style="color: #000000;background-color: #ffdddd">- (asdf-version "3.1.6")
</span><span style="color: #000000;background-color: #ddffdd">+ (asdf-version "3.1.6.9")
</span> (existing-version (asdf-version)))
(setf *asdf-version* asdf-version)
(when (and existing-version (not (equal asdf-version existing-version)))
<span style="color: #aaaaaa">@@ -6926,21 +6859,7 @@ previously-loaded version of ASDF."
</span> (let ((redefined-functions ;; gf signature and/or semantics changed incompatibly. Oops.
;; NB: it's too late to do anything about functions in UIOP!
;; If you introduce some critically incompatibility there, you must change name.
<span style="color: #000000;background-color: #ffdddd">- '(#:component-relative-pathname #:component-parent-pathname ;; component
- #:source-file-type
- #:find-system #:system-source-file #:system-relative-pathname ;; system
- #:find-component ;; find-component
- #:explain #:perform #:perform-with-restarts #:input-files #:output-files ;; action
- #:component-depends-on #:operation-done-p #:component-depends-on
- #:traverse ;; backward-interface
- #:map-direct-dependencies #:reduce-direct-dependencies #:direct-dependencies ;; plan
- #:operate ;; operate
- #:parse-component-form ;; defsystem
- #:apply-output-translations ;; output-translations
- #:process-output-translations-directive
- #:inherit-source-registry #:process-source-registry ;; source-registry
- #:process-source-registry-directive
- #:trivial-system-p)) ;; bundle
</span><span style="color: #000000;background-color: #ddffdd">+ '()) ;; empty now that we don't unintern, but wholly punt on ASDF 2.26 or earlier.
</span> (redefined-classes
;; redefining the classes causes interim circularities
;; with the old ASDF during upgrade, and many implementations bork
<span style="color: #aaaaaa">@@ -6962,12 +6881,6 @@ previously-loaded version of ASDF."
</span> ;;; Self-upgrade functions
(with-upgradability ()
<span style="color: #000000;background-color: #ffdddd">- (defun asdf-upgrade-error ()
- ;; Important notice for whom it concerns. The crux of the matter is that
- ;; TRAVERSE can be completely refactored, and so after the find-system returns, it's too late.
- (error "When a system transitively depends on ASDF, it must :defsystem-depends-on (:asdf)~%~
- Otherwise, when you upgrade from ASDF 2, you must do it before you operate on any system.~%"))
-
</span> (defun cleanup-upgraded-asdf (&optional (old-version (first *previous-asdf-versions*)))
(let ((new-version (asdf-version)))
(unless (equal old-version new-version)
<span style="color: #aaaaaa">@@ -7072,7 +6985,7 @@ another pathname in a degenerate way."))
</span> ;; condition objects, which in turn does inheritance of :report options at
;; run-time. fortunately, inheritance means we only need this kludge here in
;; order to fix all conditions that build on it. -- rgr, 28-Jul-02.]
<span style="color: #000000;background-color: #ffdddd">- #+cmu (:report print-object))
</span><span style="color: #000000;background-color: #ddffdd">+ #+cmucl (:report print-object))
</span>
(define-condition duplicate-names (system-definition-error)
((name :initarg :name :reader duplicate-names-name))
<span style="color: #aaaaaa">@@ -7110,10 +7023,9 @@ another pathname in a degenerate way."))
</span> ;; See our ASDF 2 paper for more complete explanations.
(in-order-to :initform nil :initarg :in-order-to
:accessor component-in-order-to)
<span style="color: #000000;background-color: #ffdddd">- ;; methods defined using the "inline" style inside a defsystem form:
- ;; need to store them somewhere so we can delete them when the system
- ;; is re-evaluated.
- (inline-methods :accessor component-inline-methods :initform nil) ;; OBSOLETE! DELETE THIS IF NO ONE USES.
</span><span style="color: #000000;background-color: #ddffdd">+ ;; Methods defined using the "inline" style inside a defsystem form:
+ ;; we store them here so we can delete them when the system is re-evaluated.
+ (inline-methods :accessor component-inline-methods :initform nil)
</span> ;; ASDF4: rename it from relative-pathname to specified-pathname. It need not be relative.
;; There is no initform and no direct accessor for this specified pathname,
;; so we only access the information through appropriate methods, after it has been processed.
<span style="color: #aaaaaa">@@ -7502,7 +7414,8 @@ in which the system specification (.asd file) is located."
</span> #:remove-entry-from-registry #:coerce-entry-to-directory
#:coerce-name #:primary-system-name #:coerce-filename
#:find-system #:locate-system #:load-asd
<span style="color: #000000;background-color: #ffdddd">- #:system-registered-p #:register-system #:registered-systems #:clear-system #:map-systems
</span><span style="color: #000000;background-color: #ddffdd">+ #:system-registered-p #:register-system #:registered-systems* #:registered-systems
+ #:clear-system #:map-systems
</span> #:missing-component #:missing-requires #:missing-parent
#:formatted-system-definition-error #:format-control #:format-arguments #:sysdef-error
#:load-system-definition-error #:error-name #:error-pathname #:error-condition
<span style="color: #aaaaaa">@@ -7567,9 +7480,12 @@ of which is a system object.")
</span> (defun system-registered-p (name)
(gethash (coerce-name name) *defined-systems*))
<span style="color: #000000;background-color: #ffdddd">- (defun registered-systems ()
</span><span style="color: #000000;background-color: #ddffdd">+ (defun registered-systems* ()
</span> (loop :for registered :being :the :hash-values :of *defined-systems*
<span style="color: #000000;background-color: #ffdddd">- :collect (coerce-name (cdr registered))))
</span><span style="color: #000000;background-color: #ddffdd">+ :collect (cdr registered)))
+
+ (defun registered-systems ()
+ (mapcar 'coerce-name (registered-systems*)))
</span>
(defun register-system (system)
(check-type system system)
<span style="color: #aaaaaa">@@ -7788,7 +7704,8 @@ Going forward, we recommend new users should be using the source-registry.
</span> (find-system (coerce-name name) error-p))
(defun find-system-if-being-defined (name)
<span style="color: #000000;background-color: #ffdddd">- ;; notable side effect: mark the system as being defined, to avoid infinite loops
</span><span style="color: #000000;background-color: #ddffdd">+ ;; NB: this depends on a corresponding side-effect in parse-defsystem;
+ ;; this protocol may change somewhat in the future.
</span> (first (gethash `(find-system ,(coerce-name name)) *asdf-cache*)))
(defun load-asd (pathname
<span style="color: #aaaaaa">@@ -7809,10 +7726,10 @@ Going forward, we recommend new users should be using the source-registry.
</span> ;; resolve logical-pathnames so they won't wreak havoc in parsing namestrings.
(pathname-directory-pathname (physicalize-pathname pathname))))
(handler-bind
<span style="color: #000000;background-color: #ffdddd">- ((error #'(lambda (condition)
- (error 'load-system-definition-error
- :name name :pathname pathname
- :condition condition))))
</span><span style="color: #000000;background-color: #ddffdd">+ (((and error (not missing-component))
+ #'(lambda (condition)
+ (error 'load-system-definition-error
+ :name name :pathname pathname :condition condition))))
</span> (asdf-message (compatfmt "~&~@<; ~@;Loading system definition~@[ for ~A~] from ~A~@:>~%")
name pathname)
(load* pathname :external-format external-format))))))
<span style="color: #aaaaaa">@@ -8482,9 +8399,11 @@ in some previous image, or T if it needs to be done.")
</span> (defmethod component-operation-time ((o operation) (c component))
(gethash (type-of o) (component-operation-times c)))
<span style="color: #000000;background-color: #ddffdd">+ (defmethod (setf component-operation-time) (stamp (o operation) (c component))
+ (setf (gethash (type-of o) (component-operation-times c)) stamp))
+
</span> (defmethod mark-operation-done ((o operation) (c component))
<span style="color: #000000;background-color: #ffdddd">- (setf (gethash (type-of o) (component-operation-times c))
- (compute-action-stamp nil o c :just-done t))))
</span><span style="color: #000000;background-color: #ddffdd">+ (setf (component-operation-time o c) (compute-action-stamp nil o c :just-done t))))
</span>
;;;; Perform
<span style="color: #aaaaaa">@@ -9123,6 +9042,8 @@ the action of OPERATION on COMPONENT in the PLAN"))
</span> :index (if status ; index of action amongst all nodes in traversal
(action-index status) ;; if already visited, keep index
(incf (plan-total-action-count plan))))) ; else new index
<span style="color: #000000;background-color: #ddffdd">+ (when (and done-p (not add-to-plan-p))
+ (setf (component-operation-time operation component) stamp))
</span> (when add-to-plan-p ; if it needs to be added to the plan,
(incf (plan-planned-action-count plan)) ; count it
(unless aniip ; if it's output-producing,
<span style="color: #aaaaaa">@@ -9413,7 +9334,7 @@ to load it in current image."
</span>
(defun already-loaded-systems ()
"return a list of the names of the systems that have been successfully loaded so far"
<span style="color: #000000;background-color: #ffdddd">- (remove-if-not 'component-loaded-p (registered-systems)))
</span><span style="color: #000000;background-color: #ddffdd">+ (mapcar 'coerce-name (remove-if-not 'component-loaded-p (registered-systems*))))
</span>
(defun require-system (system &rest keys &key &allow-other-keys)
"Ensure the specified SYSTEM is loaded, passing the KEYS to OPERATE, but skip any update to the
<span style="color: #aaaaaa">@@ -9853,7 +9774,7 @@ system names to pathnames of .asd files")
</span> (register-clear-configuration-hook 'clear-source-registry)
(defparameter *wild-asd*
<span style="color: #000000;background-color: #ffdddd">- (make-pathname* :directory nil :name *wild* :type "asd" :version :newest))
</span><span style="color: #000000;background-color: #ddffdd">+ (make-pathname :directory nil :name *wild* :type "asd" :version :newest))
</span>
(defun directory-asd-files (directory)
(directory-files directory *wild-asd*))
<span style="color: #aaaaaa">@@ -9978,7 +9899,7 @@ after having found a .asd file? True by default.")
</span> #+(or clasp ecl sbcl) (:tree ,(resolve-symlinks* (lisp-implementation-directory)))
:inherit-configuration
#+mkcl (:tree ,(translate-logical-pathname "CONTRIB:"))
<span style="color: #000000;background-color: #ffdddd">- #+cmu (:tree #p"modules:")
</span><span style="color: #000000;background-color: #ddffdd">+ #+cmucl (:tree #p"modules:")
</span> #+scl (:tree #p"file://modules/")))
(defun default-user-source-registry ()
`(:source-registry
<span style="color: #aaaaaa">@@ -10295,7 +10216,7 @@ after having found a .asd file? True by default.")
</span>
;;; Main parsing function
(with-upgradability ()
<span style="color: #000000;background-color: #ffdddd">- (defun* parse-dependency-def (dd)
</span><span style="color: #000000;background-color: #ddffdd">+ (defun parse-dependency-def (dd)
</span> (if (listp dd)
(case (first dd)
(:feature
<span style="color: #aaaaaa">@@ -10316,12 +10237,12 @@ after having found a .asd file? True by default.")
</span> (otherwise (sysdef-error "Ill-formed dependency: ~s" dd)))
(coerce-name dd)))
<span style="color: #000000;background-color: #ffdddd">- (defun* parse-dependency-defs (dd-list)
</span><span style="color: #000000;background-color: #ddffdd">+ (defun parse-dependency-defs (dd-list)
</span> "Parse the dependency defs in DD-LIST into canonical form by translating all
system names contained using COERCE-NAME. Return the result."
(mapcar 'parse-dependency-def dd-list))
<span style="color: #000000;background-color: #ffdddd">- (defun* (parse-component-form) (parent options &key previous-serial-component)
</span><span style="color: #000000;background-color: #ddffdd">+ (defun (parse-component-form) (parent options &key previous-serial-component)
</span> (destructuring-bind
(type name &rest rest &key
(builtin-system-p () bspp)
<span style="color: #aaaaaa">@@ -10411,6 +10332,15 @@ system names contained using COERCE-NAME. Return the result."
</span> (with-asdf-cache ()
(let* ((name (coerce-name name))
(source-file (if sfp source-file (resolve-symlinks* (load-pathname))))
<span style="color: #000000;background-color: #ddffdd">+ ;; NB: handle defsystem-depends-on BEFORE to create the system object,
+ ;; so that in case it fails, there is no incomplete object polluting the build.
+ (checked-defsystem-depends-on
+ (let* ((dep-forms (parse-dependency-defs defsystem-depends-on))
+ (deps (loop :for spec :in dep-forms
+ :when (resolve-dependency-spec nil spec)
+ :collect :it)))
+ (load-systems* deps)
+ dep-forms))
</span> (registered (system-registered-p name))
(registered! (if registered
(rplaca registered (get-file-stamp source-file))
<span style="color: #aaaaaa">@@ -10419,17 +10349,12 @@ system names contained using COERCE-NAME. Return the result."
</span> (system (reset-system (cdr registered!)
:name name :source-file source-file))
(component-options
<span style="color: #000000;background-color: #ffdddd">- (remove-plist-keys '(:defsystem-depends-on :class) options))
- (defsystem-dependencies (loop :for spec :in defsystem-depends-on
- :when (resolve-dependency-spec nil spec)
- :collect :it)))
- ;; cache defsystem-depends-on in canonical form
- (when defsystem-depends-on
- (setf component-options
- (append `(:defsystem-depends-on ,(parse-dependency-defs defsystem-depends-on))
- component-options)))
</span><span style="color: #000000;background-color: #ddffdd">+ (append
+ (remove-plist-keys '(:defsystem-depends-on :class) options)
+ ;; cache defsystem-depends-on in canonical form
+ (when checked-defsystem-depends-on
+ `(:defsystem-depends-on ,checked-defsystem-depends-on)))))
</span> (set-asdf-cache-entry `(find-system ,name) (list system))
<span style="color: #000000;background-color: #ffdddd">- (load-systems* defsystem-dependencies)
</span> ;; We change-class AFTER we loaded the defsystem-depends-on
;; since the class might be defined as part of those.
(let ((class (class-for-type nil class)))
<span style="color: #aaaaaa">@@ -11023,16 +10948,6 @@ for all the linkable object files associated with the system or its dependencies
</span> :extra-object-files (or (extra-object-files o) (when programp (extra-object-files c)))
:no-uiop (no-uiop c)
(when programp `(:entry-point ,(component-entry-point c))))))))
<span style="color: #000000;background-color: #ffdddd">-
-#+(and (not asdf-use-unsafe-mac-bundle-op)
- (or (and clasp ecl darwin)
- (and abcl darwin (not abcl-bundle-op-supported))))
-(defmethod perform :before ((o basic-compile-bundle-op) (c component))
- (unless (featurep :asdf-use-unsafe-mac-bundle-op)
- (cerror "Continue after modifying *FEATURES*."
- "BASIC-COMPILE-BUNDLE-OP operations are not supported on Mac OS X for this lisp.~%~T~
-To continue, push :asdf-use-unsafe-mac-bundle-op onto *FEATURES*.~%~T~
-Please report to ASDF-DEVEL if this works for you.")))
</span> ;;;; -------------------------------------------------------------------------
;;;; Concatenate-source
<span style="color: #aaaaaa">@@ -11219,11 +11134,12 @@ otherwise return a default system name computed from PACKAGE-NAME."
</span> (remove t (mapcar 'package-name-system (package-dependencies defpackage-form)))
(error 'package-inferred-system-missing-package-error :system system :pathname file)))
<span style="color: #000000;background-color: #ffdddd">- (defun same-package-inferred-system-p (system name directory subpath dependencies)
</span><span style="color: #000000;background-color: #ddffdd">+ (defun same-package-inferred-system-p (system name directory subpath around-compile dependencies)
</span> (and (eq (type-of system) 'package-inferred-system)
(equal (component-name system) name)
(pathname-equal directory (component-pathname system))
(equal dependencies (component-sideway-dependencies system))
<span style="color: #000000;background-color: #ddffdd">+ (equal around-compile (around-compile-hook system))
</span> (let ((children (component-children system)))
(and (length=n-p children 1)
(let ((child (first children)))
<span style="color: #aaaaaa">@@ -11243,14 +11159,16 @@ otherwise return a default system name computed from PACKAGE-NAME."
</span> :truename *resolve-symlinks*)))
(when (file-pathname-p f)
(let ((dependencies (package-inferred-system-file-dependencies f system))
<span style="color: #000000;background-color: #ffdddd">- (previous (cdr (system-registered-p system))))
- (if (same-package-inferred-system-p previous system dir sub dependencies)
</span><span style="color: #000000;background-color: #ddffdd">+ (previous (cdr (system-registered-p system)))
+ (around-compile (around-compile-hook top)))
+ (if (same-package-inferred-system-p previous system dir sub around-compile dependencies)
</span> previous
(eval `(defsystem ,system
:class package-inferred-system
:source-file nil
:pathname ,dir
:depends-on ,dependencies
<span style="color: #000000;background-color: #ddffdd">+ :around-compile ,around-compile
</span> :components ((cl-source-file "lisp" :pathname ,sub)))))))))))))))
(with-upgradability ()
<span style="color: #aaaaaa">@@ -11264,27 +11182,14 @@ otherwise return a default system name computed from PACKAGE-NAME."
</span> (uiop/package:define-package :asdf/backward-internals
(:recycle :asdf/backward-internals :asdf)
(:use :uiop/common-lisp :uiop :asdf/upgrade :asdf/find-system)
<span style="color: #000000;background-color: #ffdddd">- (:export ;; for internal use
- #:make-sub-operation
- #:load-sysdef #:make-temporary-package))
</span><span style="color: #000000;background-color: #ddffdd">+ (:export #:load-sysdef))
</span> (in-package :asdf/backward-internals)
<span style="color: #000000;background-color: #ffdddd">-(when-upgrading (:when (fboundp 'make-sub-operation))
- (defun make-sub-operation (c o dep-c dep-o)
- (declare (ignore c o dep-c dep-o)) (asdf-upgrade-error)))
-
-;;;; load-sysdef
</span> (with-upgradability ()
(defun load-sysdef (name pathname)
<span style="color: #000000;background-color: #ffdddd">- (load-asd pathname :name name))
-
- (defun make-temporary-package ()
- ;; For loading a .asd file, we don't make a temporary package anymore,
- ;; but use ASDF-USER. I'd like to have this function do this,
- ;; but since whoever uses it is likely to delete-package the result afterwards,
- ;; this would be a bad idea, so preserve the old behavior.
- (make-package (fresh-package-name :prefix :asdf :index 0) :use '(:cl :asdf))))
-
</span><span style="color: #000000;background-color: #ddffdd">+ (declare (ignore name pathname))
+ ;; Needed for backward compatibility with swank-asdf from SLIME 2015-12-01 or older.
+ (error "Use asdf:load-asd instead of asdf::load-sysdef")))
</span> ;;;; -------------------------------------------------------------------------
;;; Backward-compatible interfaces
<span style="color: #aaaaaa">@@ -11654,12 +11559,12 @@ Please use UIOP:RUN-PROGRAM instead."
</span> (in-package :asdf/footer)
;;;; Hook ASDF into the implementation's REQUIRE and other entry points.
<span style="color: #000000;background-color: #ffdddd">-#+(or abcl clasp clisp clozure cmu ecl mkcl sbcl)
</span><span style="color: #000000;background-color: #ddffdd">+#+(or abcl clasp clisp clozure cmucl ecl mkcl sbcl)
</span> (with-upgradability ()
(if-let (x (and #+clisp (find-symbol* '#:*module-provider-functions* :custom nil)))
(eval `(pushnew 'module-provide-asdf
#+abcl sys::*module-provider-functions*
<span style="color: #000000;background-color: #ffdddd">- #+(or clasp cmu ecl) ext:*module-provider-functions*
</span><span style="color: #000000;background-color: #ddffdd">+ #+(or clasp cmucl ecl) ext:*module-provider-functions*
</span> #+clisp ,x
#+clozure ccl:*module-provider-functions*
#+mkcl mk-ext:*module-provider-functions*
<span style="color: #aaaaaa">@@ -11683,7 +11588,7 @@ Please use UIOP:RUN-PROGRAM instead."
</span> (and (first l) (register-preloaded-system (coerce-name name)))
(values-list l))))))))
<span style="color: #000000;background-color: #ffdddd">-#+cmu ;; Hook into the CMUCL herald.
</span><span style="color: #000000;background-color: #ddffdd">+#+cmucl ;; Hook into the CMUCL herald.
</span> (with-upgradability ()
(defun herald-asdf (stream)
(format stream " ASDF ~A" (asdf-version)))
<span style="color: #aaaaaa">@@ -11694,7 +11599,7 @@ Please use UIOP:RUN-PROGRAM instead."
</span> (with-upgradability ()
#+allegro
(when (boundp 'excl:*warn-on-nested-reader-conditionals*)
<span style="color: #000000;background-color: #ffdddd">- (setf excl:*warn-on-nested-reader-conditionals* asdf/common-lisp::*acl-warn-save*))
</span><span style="color: #000000;background-color: #ddffdd">+ (setf excl:*warn-on-nested-reader-conditionals* uiop/common-lisp::*acl-warn-save*))
</span>
(dolist (f '(:asdf :asdf2 :asdf3 :asdf3.1 :asdf-package-system)) (pushnew f *features*))
</code></pre>
<br>
</li>
<li id='diff-1'>
<a href='https://gitlab.common-lisp.net/cmucl/cmucl/compare/95f2932bc350b3a89930f45acb09f487ed2661c1...ccabe7f818b2e6ac0478ba1ded47a2d46adb3aef#diff-1'>
<strong>
src/contrib/asdf/doc/asdf.html
</strong>
</a>
<hr>
<pre class="highlight"><code><span style="color: #000000;background-color: #ffdddd">--- a/src/contrib/asdf/doc/asdf.html
</span><span style="color: #000000;background-color: #ddffdd">+++ b/src/contrib/asdf/doc/asdf.html
</span><span style="color: #aaaaaa">@@ -84,7 +84,6 @@ ul.no-bullet {list-style: none}
</span>
<span style="color: #000000;background-color: #ffdddd">-
</span> <a name="SEC_Contents"></a>
<h2 class="contents-heading">Table of Contents</h2>
<span style="color: #aaaaaa">@@ -275,7 +274,7 @@ ul.no-bullet {list-style: none}
</span> <a name="Top"></a>
<a name="ASDF_003a-Another-System-Definition-Facility"></a>
<h1 class="top">ASDF: Another System Definition Facility</h1>
<span style="color: #000000;background-color: #ffdddd">-<p>Manual for Version 3.1.6
</span><span style="color: #000000;background-color: #ddffdd">+<p>Manual for Version 3.1.6.9
</span> </p>
<p>This manual describes ASDF, a system definition facility
<span style="color: #aaaaaa">@@ -1263,7 +1262,7 @@ simple-component-name := string
</span> pathname-specifier := pathname | string | symbol
method-form := (operation-name qual lambda-list &rest body)
<span style="color: #000000;background-color: #ffdddd">-qual := method qualifier
</span><span style="color: #000000;background-color: #ddffdd">+qual := method qualifier?
</span>
component-dep-fail-option := :fail | :try-next | :ignore
<span style="color: #aaaaaa">@@ -1787,6 +1786,7 @@ whereas earlier versions ignore this option and use the <code>system-source-dire
</span> where the <samp>.asd</samp> file resides.
</p>
<span style="color: #000000;background-color: #ddffdd">+
</span> <hr>
<a name="The-object-model-of-ASDF"></a>
<a name="The-Object-model-of-ASDF"></a>
<span style="color: #aaaaaa">@@ -1799,7 +1799,7 @@ Both a system’s structure and the operations that can be performed on syst
</span> follow a extensible protocol, allowing programmers to add new behaviours to ASDF.
For example, <code>cffi</code> adds support for special FFI description files
that interface with C libraries and for wrapper files that embed C code in Lisp.
<span style="color: #000000;background-color: #ffdddd">-<code>abcl-jar</code> supports creating Java JAR archives in ABCL.
</span><span style="color: #000000;background-color: #ddffdd">+<code>asdf-jar</code> supports creating Java JAR archives in ABCL.
</span> <code>poiu</code> supports compiling code in parallel using background processes.
</p>
<p>The key classes in ASDF are <code>component</code> and <code>operation</code>.
</code></pre>
<br>
</li>
<li id='diff-2'>
<a href='https://gitlab.common-lisp.net/cmucl/cmucl/compare/95f2932bc350b3a89930f45acb09f487ed2661c1...ccabe7f818b2e6ac0478ba1ded47a2d46adb3aef#diff-2'>
<strong>
src/contrib/asdf/doc/asdf.info
</strong>
</a>
<hr>
<pre class="highlight"><code><span style="color: #000000;background-color: #ffdddd">--- a/src/contrib/asdf/doc/asdf.info
</span><span style="color: #000000;background-color: #ddffdd">+++ b/src/contrib/asdf/doc/asdf.info
</span><span style="color: #aaaaaa">@@ -43,7 +43,7 @@ File: asdf.info, Node: Top, Next: Introduction, Prev: (dir), Up: (dir)
</span> ASDF: Another System Definition Facility
****************************************
<span style="color: #000000;background-color: #ffdddd">-Manual for Version 3.1.6
</span><span style="color: #000000;background-color: #ddffdd">+Manual for Version 3.1.6.9
</span>
This manual describes ASDF, a system definition facility for Common
Lisp programs and libraries.
<span style="color: #aaaaaa">@@ -1173,7 +1173,7 @@ File: asdf.info, Node: The defsystem grammar, Next: Other code in .asd files,
</span> pathname-specifier := pathname | string | symbol
method-form := (operation-name qual lambda-list &rest body)
<span style="color: #000000;background-color: #ffdddd">- qual := method qualifier
</span><span style="color: #000000;background-color: #ddffdd">+ qual := method qualifier?
</span>
component-dep-fail-option := :fail | :try-next | :ignore
<span style="color: #aaaaaa">@@ -1630,7 +1630,7 @@ system's structure and the operations that can be performed on systems
</span> follow a extensible protocol, allowing programmers to add new behaviours
to ASDF. For example, 'cffi' adds support for special FFI description
files that interface with C libraries and for wrapper files that embed C
<span style="color: #000000;background-color: #ffdddd">-code in Lisp. 'abcl-jar' supports creating Java JAR archives in ABCL.
</span><span style="color: #000000;background-color: #ddffdd">+code in Lisp. 'asdf-jar' supports creating Java JAR archives in ABCL.
</span> 'poiu' supports compiling code in parallel using background processes.
The key classes in ASDF are 'component' and 'operation'. A
<span style="color: #aaaaaa">@@ -5647,136 +5647,136 @@ Variable Index
</span>
Tag Table:
Node: Top1684
<span style="color: #000000;background-color: #ffdddd">-Node: Introduction7633
-Node: Quick start summary9936
-Node: Loading ASDF11643
-Node: Loading a pre-installed ASDF11945
-Ref: Loading a pre-installed ASDF-Footnote-113758
-Node: Checking whether ASDF is loaded13940
-Node: Upgrading ASDF14854
-Node: Replacing your implementation's ASDF15842
-Node: Loading ASDF from source17265
-Node: Configuring ASDF18366
-Node: Configuring ASDF to find your systems19139
-Ref: Configuring ASDF to find your systems-Footnote-122444
-Ref: Configuring ASDF to find your systems-Footnote-222691
-Ref: Configuring ASDF to find your systems-Footnote-322973
-Node: Configuring ASDF to find your systems --- old style23434
-Ref: Configuring ASDF to find your systems --- old style-Footnote-125861
-Ref: Configuring ASDF to find your systems --- old style-Footnote-226093
-Ref: Configuring ASDF to find your systems --- old style-Footnote-326860
-Node: Configuring where ASDF stores object files27016
-Node: Resetting the ASDF configuration28419
-Node: Using ASDF29476
-Node: Loading a system29687
-Node: Convenience Functions30704
-Ref: Convenience Functions-Footnote-133849
-Node: Moving on33927
-Node: Defining systems with defsystem34298
-Node: The defsystem form34726
-Node: A more involved example38132
-Ref: A more involved example-Footnote-145114
-Node: The defsystem grammar45796
-Ref: if-feature-option61935
-Node: Other code in .asd files63767
-Node: The package-inferred-system extension64903
-Node: The object model of ASDF69170
-Ref: The object model of ASDF-Footnote-171500
-Ref: The object model of ASDF-Footnote-271852
-Node: Operations72179
-Ref: operate73284
-Node: Predefined operations of ASDF75767
-Ref: test-op77882
-Node: Creating new operations85765
-Node: Components90978
-Ref: System names94462
-Ref: Components-Footnote-199134
-Ref: Components-Footnote-299430
-Node: Common attributes of components99752
-Ref: required-features101314
-Node: Pre-defined subclasses of component107161
-Node: Creating new component types109595
-Node: Dependencies110885
-Node: Functions112756
-Node: Controlling where ASDF searches for systems114590
-Node: Configurations115212
-Node: Truenames and other dangers118687
-Node: XDG base directory119973
-Node: Backward Compatibility121387
-Node: Configuration DSL122103
-Node: Configuration Directories127658
-Node: The here directive129485
-Node: Shell-friendly syntax for configuration131378
-Node: Search Algorithm132395
-Node: Caching Results133896
-Node: Configuration API137140
-Node: Introspection139179
-Node: *source-registry-parameter* variable139443
-Node: Information about system dependencies140012
-Node: Status140928
-Node: Rejected ideas141383
-Node: TODO143764
-Node: Credits for the source-registry143949
-Node: Controlling where ASDF saves compiled files144484
-Ref: Controlling where ASDF saves compiled files-Footnote-1145896
-Node: Output Configurations145940
-Ref: Output Configurations-Footnote-1148801
-Node: Output Backward Compatibility148867
-Node: Output Configuration DSL151593
-Node: Output Configuration Directories157048
-Node: Output Shell-friendly syntax for configuration158605
-Node: Semantics of Output Translations159914
-Node: Output Caching Results161483
-Node: Output location API161963
-Node: Credits for output translations164385
-Node: Error handling164905
-Node: Miscellaneous additional functionality165746
-Node: Controlling file compilation166218
-Node: Controlling source file character encoding169484
-Node: Miscellaneous Functions176299
-Ref: system-relative-pathname176596
-Ref: Miscellaneous Functions-Footnote-1182220
-Node: Some Utility Functions182331
-Node: Getting the latest version193059
-Node: FAQ194004
-Node: Where do I report a bug?194399
-Node: Mailing list194764
-Node: What has changed between ASDF 1 ASDF 2 and ASDF 3?195099
-Node: What are ASDF 1 2 3?197273
-Node: How do I detect the ASDF version?198314
-Node: ASDF can portably name files in subdirectories200621
-Node: Output translations202171
-Node: Source Registry Configuration203198
-Node: Usual operations are made easier to the user204825
-Node: Many bugs have been fixed205411
-Node: ASDF itself is versioned207243
-Node: ASDF can be upgraded208118
-Node: Decoupled release cycle209270
-Node: Pitfalls of the transition to ASDF 2210199
-Node: Pitfalls of the upgrade to ASDF 3214469
-Ref: Pitfalls of the upgrade to ASDF 3-Footnote-1218836
-Node: What happened to the bundle operations219006
-Node: Issues with installing the proper version of ASDF220108
-Node: My Common Lisp implementation comes with an outdated version of ASDF. What to do?220579
-Node: I'm a Common Lisp implementation vendor. When and how should I upgrade ASDF?221512
-Node: Issues with configuring ASDF225395
-Node: How can I customize where fasl files are stored?225770
-Node: How can I wholly disable the compiler output cache?226863
-Node: Issues with using and extending ASDF to define systems228242
-Node: How can I cater for unit-testing in my system?228966
-Node: How can I cater for documentation generation in my system?229855
-Node: How can I maintain non-Lisp (e.g. C) source files?230376
-Ref: report-bugs230808
-Node: I want to put my module's files at the top level. How do I do this?230808
-Node: How do I create a system definition where all the source files have a .cl extension?233958
-Node: How do I mark a source file to be loaded only and not compiled?235931
-Node: How do I work with readtables?236927
-Node: ASDF development FAQs240613
-Node: How do I run the tests interactively in a REPL?240852
-Node: Ongoing Work242718
-Node: Bibliography242997
-Node: Concept Index246433
-Node: Function and Class Index252725
-Node: Variable Index264553
</span><span style="color: #000000;background-color: #ddffdd">+Node: Introduction7635
+Node: Quick start summary9938
+Node: Loading ASDF11645
+Node: Loading a pre-installed ASDF11947
+Ref: Loading a pre-installed ASDF-Footnote-113760
+Node: Checking whether ASDF is loaded13942
+Node: Upgrading ASDF14856
+Node: Replacing your implementation's ASDF15844
+Node: Loading ASDF from source17267
+Node: Configuring ASDF18368
+Node: Configuring ASDF to find your systems19141
+Ref: Configuring ASDF to find your systems-Footnote-122446
+Ref: Configuring ASDF to find your systems-Footnote-222693
+Ref: Configuring ASDF to find your systems-Footnote-322975
+Node: Configuring ASDF to find your systems --- old style23436
+Ref: Configuring ASDF to find your systems --- old style-Footnote-125863
+Ref: Configuring ASDF to find your systems --- old style-Footnote-226095
+Ref: Configuring ASDF to find your systems --- old style-Footnote-326862
+Node: Configuring where ASDF stores object files27018
+Node: Resetting the ASDF configuration28421
+Node: Using ASDF29478
+Node: Loading a system29689
+Node: Convenience Functions30706
+Ref: Convenience Functions-Footnote-133851
+Node: Moving on33929
+Node: Defining systems with defsystem34300
+Node: The defsystem form34728
+Node: A more involved example38134
+Ref: A more involved example-Footnote-145116
+Node: The defsystem grammar45798
+Ref: if-feature-option61938
+Node: Other code in .asd files63770
+Node: The package-inferred-system extension64906
+Node: The object model of ASDF69173
+Ref: The object model of ASDF-Footnote-171503
+Ref: The object model of ASDF-Footnote-271855
+Node: Operations72182
+Ref: operate73287
+Node: Predefined operations of ASDF75770
+Ref: test-op77885
+Node: Creating new operations85768
+Node: Components90981
+Ref: System names94465
+Ref: Components-Footnote-199137
+Ref: Components-Footnote-299433
+Node: Common attributes of components99755
+Ref: required-features101317
+Node: Pre-defined subclasses of component107164
+Node: Creating new component types109598
+Node: Dependencies110888
+Node: Functions112759
+Node: Controlling where ASDF searches for systems114593
+Node: Configurations115215
+Node: Truenames and other dangers118690
+Node: XDG base directory119976
+Node: Backward Compatibility121390
+Node: Configuration DSL122106
+Node: Configuration Directories127661
+Node: The here directive129488
+Node: Shell-friendly syntax for configuration131381
+Node: Search Algorithm132398
+Node: Caching Results133899
+Node: Configuration API137143
+Node: Introspection139182
+Node: *source-registry-parameter* variable139446
+Node: Information about system dependencies140015
+Node: Status140931
+Node: Rejected ideas141386
+Node: TODO143767
+Node: Credits for the source-registry143952
+Node: Controlling where ASDF saves compiled files144487
+Ref: Controlling where ASDF saves compiled files-Footnote-1145899
+Node: Output Configurations145943
+Ref: Output Configurations-Footnote-1148804
+Node: Output Backward Compatibility148870
+Node: Output Configuration DSL151596
+Node: Output Configuration Directories157051
+Node: Output Shell-friendly syntax for configuration158608
+Node: Semantics of Output Translations159917
+Node: Output Caching Results161486
+Node: Output location API161966
+Node: Credits for output translations164388
+Node: Error handling164908
+Node: Miscellaneous additional functionality165749
+Node: Controlling file compilation166221
+Node: Controlling source file character encoding169487
+Node: Miscellaneous Functions176302
+Ref: system-relative-pathname176599
+Ref: Miscellaneous Functions-Footnote-1182223
+Node: Some Utility Functions182334
+Node: Getting the latest version193062
+Node: FAQ194007
+Node: Where do I report a bug?194402
+Node: Mailing list194767
+Node: What has changed between ASDF 1 ASDF 2 and ASDF 3?195102
+Node: What are ASDF 1 2 3?197276
+Node: How do I detect the ASDF version?198317
+Node: ASDF can portably name files in subdirectories200624
+Node: Output translations202174
+Node: Source Registry Configuration203201
+Node: Usual operations are made easier to the user204828
+Node: Many bugs have been fixed205414
+Node: ASDF itself is versioned207246
+Node: ASDF can be upgraded208121
+Node: Decoupled release cycle209273
+Node: Pitfalls of the transition to ASDF 2210202
+Node: Pitfalls of the upgrade to ASDF 3214472
+Ref: Pitfalls of the upgrade to ASDF 3-Footnote-1218839
+Node: What happened to the bundle operations219009
+Node: Issues with installing the proper version of ASDF220111
+Node: My Common Lisp implementation comes with an outdated version of ASDF. What to do?220582
+Node: I'm a Common Lisp implementation vendor. When and how should I upgrade ASDF?221515
+Node: Issues with configuring ASDF225398
+Node: How can I customize where fasl files are stored?225773
+Node: How can I wholly disable the compiler output cache?226866
+Node: Issues with using and extending ASDF to define systems228245
+Node: How can I cater for unit-testing in my system?228969
+Node: How can I cater for documentation generation in my system?229858
+Node: How can I maintain non-Lisp (e.g. C) source files?230379
+Ref: report-bugs230811
+Node: I want to put my module's files at the top level. How do I do this?230811
+Node: How do I create a system definition where all the source files have a .cl extension?233961
+Node: How do I mark a source file to be loaded only and not compiled?235934
+Node: How do I work with readtables?236930
+Node: ASDF development FAQs240616
+Node: How do I run the tests interactively in a REPL?240855
+Node: Ongoing Work242721
+Node: Bibliography243000
+Node: Concept Index246436
+Node: Function and Class Index252728
+Node: Variable Index264556
</span>
End Tag Table
</code></pre>
<br>
</li>
<li id='diff-3'>
<a href='https://gitlab.common-lisp.net/cmucl/cmucl/compare/95f2932bc350b3a89930f45acb09f487ed2661c1...ccabe7f818b2e6ac0478ba1ded47a2d46adb3aef#diff-3'>
<strong>
src/contrib/asdf/doc/asdf.pdf
</strong>
</a>
<hr>
<pre class="highlight"><code>Binary files a/src/contrib/asdf/doc/asdf.pdf and b/src/contrib/asdf/doc/asdf.pdf differ
</code></pre>
<br>
</li>
<li id='diff-4'>
<a href='https://gitlab.common-lisp.net/cmucl/cmucl/compare/95f2932bc350b3a89930f45acb09f487ed2661c1...ccabe7f818b2e6ac0478ba1ded47a2d46adb3aef#diff-4'>
<strong>
src/general-info/release-21b.txt
</strong>
</a>
<hr>
<pre class="highlight"><code><span style="color: #000000;background-color: #ffdddd">--- a/src/general-info/release-21b.txt
</span><span style="color: #000000;background-color: #ddffdd">+++ b/src/general-info/release-21b.txt
</span><span style="color: #aaaaaa">@@ -22,7 +22,7 @@ New in this release:
</span> * Feature enhancements
* Changes
<span style="color: #000000;background-color: #ffdddd">- * Update to ASDF 3.1.6
</span><span style="color: #000000;background-color: #ddffdd">+ * Update to ASDF 3.1.6.9
</span> * Add support for asdf's static-image-op
* This mostly entails internal changes in how executables are
handled. lisp.a is not complete; it must be linked with
</code></pre>
<br>
</li>
</div>
<div class='footer' style='margin-top: 10px;'>
<p>
—
<br>
<a href="https://gitlab.common-lisp.net/cmucl/cmucl/compare/95f2932bc350b3a89930f45acb09f487ed2661c1...ccabe7f818b2e6ac0478ba1ded47a2d46adb3aef">View it on GitLab</a>.
<br>
You're receiving this email because of your account on gitlab.common-lisp.net.
If you'd like to receive fewer emails, you can adjust your notification settings.
</p>
</div>
</body>
</html>