Commit f45cacf7 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

1.675.

Fix bug 562183: setf methods must return proper value. (Thanks to janderson)
Fix bug 562186: wild patterns need :wild version to make clisp happy.
Add URL in manual.
parent c417fd28
......@@ -60,7 +60,7 @@
(eval-when (:load-toplevel :compile-toplevel :execute)
(let* ((asdf-version
;; the 1+ hair is to ensure that we don't do an inadvertent find and replace
(subseq "VERSION:1.674" (1+ (length "VERSION"))))
(subseq "VERSION:1.675" (1+ (length "VERSION"))))
#+allegro (excl::*autoload-package-name-alist* nil)
(existing-asdf (find-package :asdf))
(versym '#:*asdf-version*)
......@@ -854,7 +854,8 @@ actually-existing directory."
(if a
(setf (cdr a) new-value)
(setf (slot-value c 'properties)
(acons property new-value (slot-value c 'properties))))))
(acons property new-value (slot-value c 'properties)))))
new-value)
(defclass system (module)
((description :accessor system-description :initarg :description)
......@@ -1214,7 +1215,8 @@ class specifier, not an operation."
(defmethod (setf visiting-component) (new-value operation component)
;; MCL complains about unused lexical variables
(declare (ignorable new-value operation component)))
(declare (ignorable operation component))
new-value)
(defmethod (setf visiting-component) (new-value (o operation) (c component))
(let ((node (node-for o c))
......@@ -1222,7 +1224,8 @@ class specifier, not an operation."
(if new-value
(pushnew node (operation-visiting-nodes a) :test 'equal)
(setf (operation-visiting-nodes a)
(remove node (operation-visiting-nodes a) :test 'equal)))))
(remove node (operation-visiting-nodes a) :test 'equal))))
new-value)
(defmethod component-visiting-p ((o operation) (c component))
(let ((node (node-for o c)))
......@@ -2302,15 +2305,16 @@ and the order is by decreasing length of namestring of the source pathname.")
(defun output-translations ()
(car *output-translations*))
(defun (setf output-translations) (x)
(defun (setf output-translations) (new-value)
(setf *output-translations*
(list
(stable-sort (copy-list x) #'>
(stable-sort (copy-list new-value) #'>
:key (lambda (x)
(etypecase (car x)
((eql t) -1)
(pathname
(length (pathname-directory (car x))))))))))
(length (pathname-directory (car x)))))))))
new-value)
(defun output-translations-initialized-p ()
(and *output-translations* t))
......@@ -2573,8 +2577,12 @@ with a different configuration, so the configuration would be re-read then."
((eq dst t)
(funcall collect (list trusrc t)))
(t
(let* ((trudst (if dst (resolve-location dst t) trusrc))
(wilddst (make-pathname :name :wild :type :wild :defaults trudst)))
(let* ((trudst (make-pathname
:version :wild
:defaults (if dst (resolve-location dst t) trusrc)))
(wilddst (make-pathname
:name :wild :type :wild :version :wild
:defaults trudst)))
(funcall collect (list wilddst t))
(funcall collect (list trusrc trudst)))))))))))
......@@ -2815,8 +2823,9 @@ said element itself being a list of directory pathnames where to look for .asd f
(defun source-registry ()
(car *source-registry*))
(defun (setf source-registry) (x)
(setf *source-registry* (list x)))
(defun (setf source-registry) (new-value)
(setf *source-registry* (list new-value))
new-value)
(defun source-registry-initialized-p ()
(and *source-registry* t))
......
......@@ -2466,6 +2466,8 @@ You may get the ASDF source repository using git:
@kbd{git clone http://common-lisp.net/project/asdf/asdf.git}
You will find the above referenced tags in this repository.
You can also browse the repository on
@url{http://common-lisp.net/gitweb?p=projects/asdf/asdf.git}.
Discussion of ASDF development is conducted on the
mailing list
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment