-;;; This is asdf: Another System Definition Facility. 1.65
+;;; This is asdf: Another System Definition Facility. 1.68
;;;
;;; Feedback, bug reports, and patches are all welcome: please mail to
;;; <cclan-list@lists.sf.net>. But note first that the canonical
#:hyperdocumentation #:hyperdoc
#:compile-op #:load-op #:load-source-op #:test-system-version
+ #:test-op
#:operation ; operations
#:feature ; sort-of operation
#:version ; metaphorically sort-of an operation
(in-package #:asdf)
-(defvar *asdf-revision* (let* ((v "1.65")
+(defvar *asdf-revision* (let* ((v "1.68")
(colon (or (position #\: v) -1))
(dot (position #\. v)))
(and v colon dot
(not (eql c dep-c)))
(when (eql force-p t)
(setf (getf args :force) nil))
- ;; note we lose the parent slot, because we don't want
- ;; forced to propagate backwards either (changes in depended-on
- ;; systems shouldn't force recompilation of the depending system)
(apply #'make-instance dep-o
- ;:parent o
+ :parent o
:original-initargs args args))
((subtypep (type-of o) dep-o)
o)
(component-property c 'last-loaded-as-source)))
nil t))
+(defclass test-op (operation) ())
+
+(defmethod perform ((operation test-op) (c component))
+ nil)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; invoking operations
(provide name))))
(pushnew
- (merge-pathnames "systems/"
- (truename (sb-ext:posix-getenv "SBCL_HOME")))
+ '(merge-pathnames "systems/"
+ (truename (sb-ext:posix-getenv "SBCL_HOME")))
*central-registry*)
(pushnew
- (merge-pathnames "site-systems/"
- (truename (sb-ext:posix-getenv "SBCL_HOME")))
+ '(merge-pathnames "site-systems/"
+ (truename (sb-ext:posix-getenv "SBCL_HOME")))
*central-registry*)
(pushnew
- (merge-pathnames ".sbcl/systems/"
- (user-homedir-pathname))
+ '(merge-pathnames ".sbcl/systems/"
+ (user-homedir-pathname))
*central-registry*)
(pushnew 'module-provide-asdf sb-ext:*module-provider-functions*))