diff --git a/asdf.asd b/asdf.asd index 4b08ae7c4af35cb360f2c304b8d8f2aaee6194ab..e7aebcb36cc56e572c726080fa16c8c5f1965bf2 100644 --- a/asdf.asd +++ b/asdf.asd @@ -14,7 +14,7 @@ :licence "MIT" :description "Another System Definition Facility" :long-description "ASDF builds Common Lisp software organized into defined systems." - :version "2.26.54" ;; to be automatically updated by bin/bump-revision + :version "2.26.55" ;; to be automatically updated by bin/bump-revision :depends-on () :components ((:file "asdf"))) diff --git a/asdf.lisp b/asdf.lisp index 4bc5b034d7e4509bb03ef5b14cd71f5540d13fbb..474e8e32785991cc53bce14570a4754e378af521 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -1,5 +1,5 @@ ;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*- -;;; This is ASDF 2.26.54: Another System Definition Facility. +;;; This is ASDF 2.26.55: Another System Definition Facility. ;;; ;;; Feedback, bug reports, and patches are all welcome: ;;; please mail to <asdf-devel@common-lisp.net>. @@ -120,7 +120,7 @@ ;; "2.345.6" would be a development version in the official upstream ;; "2.345.0.7" would be your seventh local modification of official release 2.345 ;; "2.345.6.7" would be your seventh local modification of development version 2.345.6 - (asdf-version "2.26.54") + (asdf-version "2.26.55") (existing-asdf (find-class 'component nil)) (existing-version *asdf-version*) (already-there (equal asdf-version existing-version))) @@ -1570,10 +1570,6 @@ and implementation-defined external-format's") (source-file :initarg :source-file :writer %set-system-source-file) ; upgrade issues on CLISP, CMUCL (defsystem-depends-on :reader system-defsystem-depends-on :initarg :defsystem-depends-on))) -(defmethod component-parent ((system system)) - (declare (ignorable system)) - nil) - (defmethod component-pathname ((system system)) (if (or (slot-boundp system 'relative-pathname) (slot-boundp system 'absolute-pathname) @@ -2138,9 +2134,6 @@ PREVIOUS-TIME when not null is the time at which the PREVIOUS system was loaded. (ignore-errors (format stream "~{~S~^ ~}" (operation-original-initargs o))))) -(defun* node-for (o c) - (cons (type-of o) c)) - (defparameter *operations* (make-hash-table :test 'equal)) (defun* make-operation (operation-class &rest initargs) (let ((key (cons operation-class initargs))) @@ -2323,6 +2316,10 @@ in some previous image, or T if it needs to be done.") (with-slots (stamp done-p planned-p) status (format stream "~@{~S~^ ~}" :stamp stamp :done-p done-p :planned-p planned-p)))) +;; TODO: eliminate NODE-FOR, use CONS. +;; Supposes cleaner protocol for operation initargs passed to MAKE-OPERATION. +(defun* node-for (o c) (cons (type-of o) c)) + (defmethod (setf plan-action-status) (new-status (plan plan-traversal) (o operation) (c component)) (setf (gethash (node-for o c) (plan-visited-actions plan)) new-status))