projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update for sb-aclrepl
[sbcl.git]
/
contrib
/
asdf
/
asdf.lisp
diff --git
a/contrib/asdf/asdf.lisp
b/contrib/asdf/asdf.lisp
index
9f58c2b
..
4f7aff7
100644
(file)
--- a/
contrib/asdf/asdf.lisp
+++ b/
contrib/asdf/asdf.lisp
@@
-1,4
+1,4
@@
-;;; 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
;;;
;;; Feedback, bug reports, and patches are all welcome: please mail to
;;; <cclan-list@lists.sf.net>. But note first that the canonical
@@
-43,6
+43,7
@@
#:hyperdocumentation #:hyperdoc
#:compile-op #:load-op #:load-source-op #:test-system-version
#: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
#:operation ; operations
#:feature ; sort-of operation
#:version ; metaphorically sort-of an operation
@@
-88,7
+89,7
@@
(in-package #:asdf)
(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
(colon (or (position #\: v) -1))
(dot (position #\. v)))
(and v colon dot
@@
-471,11
+472,8
@@
system."))
(not (eql c dep-c)))
(when (eql force-p t)
(setf (getf args :force) nil))
(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
(apply #'make-instance dep-o
- ;:parent o
+ :parent o
:original-initargs args args))
((subtypep (type-of o) dep-o)
o)
:original-initargs args args))
((subtypep (type-of o) dep-o)
o)
@@
-769,6
+767,10
@@
system."))
(component-property c 'last-loaded-as-source)))
nil t))
(component-property c 'last-loaded-as-source)))
nil t))
+(defclass test-op (operation) ())
+
+(defmethod perform ((operation test-op) (c component))
+ nil)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; invoking operations
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; invoking operations
@@
-1021,18
+1023,18
@@
output to *trace-output*. Returns the shell's exit code."
(provide name))))
(pushnew
(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
*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
*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*))
*central-registry*)
(pushnew 'module-provide-asdf sb-ext:*module-provider-functions*))