Skip to content
Snippets Groups Projects
Commit c2b7fbaf authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

2.011: bless 2.010.9 with some whitespace and documentation tweaks.

parent 201bc40d
No related branches found
No related tags found
No related merge requests found
...@@ -68,7 +68,7 @@ ...@@ -68,7 +68,7 @@
;;;; Create packages in a way that is compatible with hot-upgrade. ;;;; Create packages in a way that is compatible with hot-upgrade.
;;;; See https://bugs.launchpad.net/asdf/+bug/485687 ;;;; See https://bugs.launchpad.net/asdf/+bug/485687
;;;; See more at the end of the file. ;;;; See more near the end of the file.
(eval-when (:load-toplevel :compile-toplevel :execute) (eval-when (:load-toplevel :compile-toplevel :execute)
(defvar *asdf-version* nil) (defvar *asdf-version* nil)
...@@ -76,8 +76,9 @@ ...@@ -76,8 +76,9 @@
(let* (;; For bug reporting sanity, please always bump this version when you modify this file. (let* (;; For bug reporting sanity, please always bump this version when you modify this file.
;; "2.345" would be an official release ;; "2.345" would be an official release
;; "2.345.6" would be a development version in the official upstream ;; "2.345.6" would be a development version in the official upstream
;; "2.345.0.7" or "2.345.6.7" would be your local modification of one of the above. ;; "2.345.0.7" would be your local modification of an official release
(asdf-version "2.010.9") ;; "2.345.6.7" would be your local modification of a development version
(asdf-version "2.011")
(existing-asdf (fboundp 'find-system)) (existing-asdf (fboundp 'find-system))
(existing-version *asdf-version*) (existing-version *asdf-version*)
(already-there (equal asdf-version existing-version))) (already-there (equal asdf-version existing-version)))
...@@ -294,7 +295,7 @@ ...@@ -294,7 +295,7 @@
;; Utilities ;; Utilities
#:absolute-pathname-p #:absolute-pathname-p
;; #:aif #:it ;; #:aif #:it
;; #:appendf ;; #:appendf
#:coerce-name #:coerce-name
#:directory-pathname-p #:directory-pathname-p
...@@ -307,8 +308,8 @@ ...@@ -307,8 +308,8 @@
#:merge-pathnames* #:merge-pathnames*
#:pathname-directory-pathname #:pathname-directory-pathname
#:read-file-forms #:read-file-forms
;; #:remove-keys ;; #:remove-keys
;; #:remove-keyword ;; #:remove-keyword
#:resolve-symlinks #:resolve-symlinks
#:split-string #:split-string
#:component-name-to-pathname-components #:component-name-to-pathname-components
...@@ -633,7 +634,7 @@ actually-existing directory." ...@@ -633,7 +634,7 @@ actually-existing directory."
(defun* get-uid () (defun* get-uid ()
#+allegro (excl.osi:getuid) #+allegro (excl.osi:getuid)
#+clisp (loop :for s :in '("posix:uid" "LINUX:getuid") #+clisp (loop :for s :in '("posix:uid" "LINUX:getuid")
:for f = (ignore-errors (read-from-string s)) :for f = (ignore-errors (read-from-string s))
:when f :return (funcall f)) :when f :return (funcall f))
#+(or cmu scl) (unix:unix-getuid) #+(or cmu scl) (unix:unix-getuid)
#+ecl #.(cl:if (cl:< ext:+ecl-version-number+ 100601) #+ecl #.(cl:if (cl:< ext:+ecl-version-number+ 100601)
...@@ -667,7 +668,7 @@ with given pathname and if it exists return its truename." ...@@ -667,7 +668,7 @@ with given pathname and if it exists return its truename."
(pathname (unless (wild-pathname-p p) (pathname (unless (wild-pathname-p p)
#.(or #+(or allegro clozure cmu ecl sbcl scl) '(probe-file p) #.(or #+(or allegro clozure cmu ecl sbcl scl) '(probe-file p)
#+clisp (aif (find-symbol (string '#:probe-pathname) :ext) `(ignore-errors (,it p))) #+clisp (aif (find-symbol (string '#:probe-pathname) :ext) `(ignore-errors (,it p)))
'(ignore-errors (truename p))))))) '(ignore-errors (truename p)))))))
(defun* truenamize (p) (defun* truenamize (p)
"Resolve as much of a pathname as possible" "Resolve as much of a pathname as possible"
...@@ -1333,7 +1334,7 @@ Going forward, we recommend new users should be using the source-registry. ...@@ -1333,7 +1334,7 @@ Going forward, we recommend new users should be using the source-registry.
(let* ((registered (cdr (gethash fallback *defined-systems*))) (let* ((registered (cdr (gethash fallback *defined-systems*)))
(system (or registered (system (or registered
(apply 'make-instance 'system (apply 'make-instance 'system
:name fallback :source-file source-file keys)))) :name fallback :source-file source-file keys))))
(unless registered (unless registered
(register-system fallback system)) (register-system fallback system))
(throw 'find-system system)))) (throw 'find-system system))))
......
cl-asdf (2:2.011-1) unstable; urgency=low
* Mostly same as 2.010.9: several minor tweaks and bug fixes since 2.010.
* Will be happier: users of implementations ACL, GCL; users of libraries
CL-Launch, XCVB; future former users of ASDF-Binary-Locations; people
with missing dependencies (in lieu of error-in-error); people extending
ASDF (notably Stelian Ionescu), who'd like to use keywords to name
component classes.
-- Francois-Rene Rideau <fare@tunes.org> Sun, 28 Nov 2010 13:21:34 -0500
cl-asdf (2:2.010-1) unstable; urgency=low cl-asdf (2:2.010-1) unstable; urgency=low
* same as 2.146 * same as 2.146
......
...@@ -43,6 +43,12 @@ ...@@ -43,6 +43,12 @@
<p>ASDF stands for <em>A</em>nother <em>S</em>ystem <em>D</em>efinition <em>F</em>acility, <p>ASDF stands for <em>A</em>nother <em>S</em>ystem <em>D</em>efinition <em>F</em>acility,
in the continuity of the Lisp DEFSYSTEM of yore. in the continuity of the Lisp DEFSYSTEM of yore.
</p> </p>
<a id="what_it_is_not"></a>
<h3>What it is not</h3>
<p>ASDF will not download missing software components for you.
For that, you want <a href="http://quicklisp.org/">quicklisp</a>.
(quicklisp builds upon ASDF.)
</p>
<a id="documentation"></a> <a id="documentation"></a>
<h3>Documentation</h3> <h3>Documentation</h3>
<p>You can read our manual:</p> <p>You can read our manual:</p>
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment