Loading component.lisp +3 −5 Original line number Diff line number Diff line Loading @@ -34,11 +34,9 @@ ;; Internals we'd like to share with the ASDF package, especially for upgrade purposes #:name #:version #:description #:long-description #:author #:maintainer #:licence #:components-by-name #:components #:children #:children-by-name #:default-component-class #:author #:maintainer #:licence #:source-file ;; the following retained for backward compatibility. #:defsystem-depends-on #:components-by-name #:components #:children #:children-by-name #:default-component-class #:source-file #:defsystem-depends-on ; This symbol retained for backward compatibility. #:sideway-dependencies #:if-feature #:in-order-to #:inline-methods #:relative-pathname #:absolute-pathname #:operation-times #:around-compile #:%encoding #:properties #:component-properties #:parent)) Loading parse-defsystem.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -170,8 +170,8 @@ (apply 'reinitialize-instance component args) (setf component (apply 'make-instance class args))) (component-pathname component) ; eagerly compute the absolute pathname ;; cache information for introspection (when (typep component 'system) ;; cache information for introspection (setf (slot-value component 'depends-on) depends-on (slot-value component 'weakly-depends-on) weakly-depends-on)) (let ((sysfile (system-source-file (component-system component)))) ;; requires the previous Loading system.lisp +1 −2 Original line number Diff line number Diff line Loading @@ -66,8 +66,7 @@ :initform nil) ;; these two are specially set in parse-component-form, so have no :INITARGs. (depends-on :reader system-depends-on :initform nil) (weakly-depends-on :reader system-weakly-depends-on :initform nil) )) (weakly-depends-on :reader system-weakly-depends-on :initform nil))) (defun reset-system (system &rest keys &key &allow-other-keys) (change-class (change-class system 'proto-system) 'system) Loading test/script-support.lisp +1 −2 Original line number Diff line number Diff line Loading @@ -345,8 +345,7 @@ is bound, write a message and exit on an error. If (funcall thunk)) #+allegro (excl:without-redefinition-warnings (funcall thunk)) ) (funcall thunk))) (defun interactive-test (&optional files) (verbose t nil) Loading test/test-utilities.script +1 −1 File changed.Contains only whitespace changes. Show changes Loading
component.lisp +3 −5 Original line number Diff line number Diff line Loading @@ -34,11 +34,9 @@ ;; Internals we'd like to share with the ASDF package, especially for upgrade purposes #:name #:version #:description #:long-description #:author #:maintainer #:licence #:components-by-name #:components #:children #:children-by-name #:default-component-class #:author #:maintainer #:licence #:source-file ;; the following retained for backward compatibility. #:defsystem-depends-on #:components-by-name #:components #:children #:children-by-name #:default-component-class #:source-file #:defsystem-depends-on ; This symbol retained for backward compatibility. #:sideway-dependencies #:if-feature #:in-order-to #:inline-methods #:relative-pathname #:absolute-pathname #:operation-times #:around-compile #:%encoding #:properties #:component-properties #:parent)) Loading
parse-defsystem.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -170,8 +170,8 @@ (apply 'reinitialize-instance component args) (setf component (apply 'make-instance class args))) (component-pathname component) ; eagerly compute the absolute pathname ;; cache information for introspection (when (typep component 'system) ;; cache information for introspection (setf (slot-value component 'depends-on) depends-on (slot-value component 'weakly-depends-on) weakly-depends-on)) (let ((sysfile (system-source-file (component-system component)))) ;; requires the previous Loading
system.lisp +1 −2 Original line number Diff line number Diff line Loading @@ -66,8 +66,7 @@ :initform nil) ;; these two are specially set in parse-component-form, so have no :INITARGs. (depends-on :reader system-depends-on :initform nil) (weakly-depends-on :reader system-weakly-depends-on :initform nil) )) (weakly-depends-on :reader system-weakly-depends-on :initform nil))) (defun reset-system (system &rest keys &key &allow-other-keys) (change-class (change-class system 'proto-system) 'system) Loading
test/script-support.lisp +1 −2 Original line number Diff line number Diff line Loading @@ -345,8 +345,7 @@ is bound, write a message and exit on an error. If (funcall thunk)) #+allegro (excl:without-redefinition-warnings (funcall thunk)) ) (funcall thunk))) (defun interactive-test (&optional files) (verbose t nil) Loading