- Feb 20, 2002
-
-
Daniel Barlow authored
- (destructuring-bind (ignore name version-object) + (destructuring-bind (ignore name version-object) dep oops - :case :common :name name :type "SYSTEM" + :case :common :name name :type "ASD" and everywhere else that we found (defun class-for-type (parent type) - (let ((class (find-class (intern (symbol-name type) *package*) nil))) + (let ((class (find-class + (or (find-symbol (symbol-name type) *package*) + (find-symbol (symbol-name type) #.*package*)) nil))) fix for system definitions in packages that don't use ASDF
-
- Feb 19, 2002
-
-
Daniel Barlow authored
+ (if-component-dep-fails :initform :fail +(defgeneric find-component (module name &optional version) though presently it ignores the extra arg major dependency rewrite to allow for and/or dependencies and specification of versions compile-and-load-op is dead we reuse old components when processing a defsystem form that we've already seen once. this means that eql-specialized methods will continue to work and also that we can implement the pathname defaulting properly (it doesn't work yet)
-
- Feb 14, 2002
-
-
Daniel Barlow authored
- (pathname :initarg :pathname))) + (relative-pathname :initarg :pathname))) component-pathname, component-relative-pathname changed to actually work (defmethod print-object ((c component) stream) is suffering strangely, but that might just be me. try re-enabling this and see if itworks for you (defmethod perform ((o load-op) (c cl-source-file)) - (mapc nil #'load (output-files co c)))) + (map nil #'load (output-files co c)))) oops load-op and compile-and-load-op are actually the same thing (at least for CL files). need to choose a name ...
-
Daniel Barlow authored
defsystem parsing basically totally rewritten. diffs unmeaningful, so UTSL
-
- Feb 11, 2002
-
-
Daniel Barlow authored
-
- Dec 04, 2001
-
-
Christophe Rhodes authored
-
Christophe Rhodes authored
-
Christophe Rhodes authored
-
Christophe Rhodes authored
-
- Aug 20, 2001
-
-
Christophe Rhodes authored
anaphorically captured as asdf:component). Implemented :perform and :explain defsystem arguments as in (slightly adjusted) README Also added :initially-do and :finally-do mk-compatibility options
-
- Aug 06, 2001
-
-
Daniel Barlow authored
for mk-compatibility
-
Daniel Barlow authored
- (depends-on :initform nil + (in-order-to :initform nil :initarg :in-order-to) + ;; the defsystem syntax allows us to define EQL methods with our + ;; components. We must keep track of them all so we can get rid of + ;; them if need be when the defsystem form is re-evaluated (although note that we don't yet parse the necessary syntax, but the infrastructure is ready when we do) +(defvar *visited-nodes* nil) +(defvar *visiting-nodes* nil) and logical equivalents in operation slots go away. (defmethod visit-component ((o operation) (c component)) (defmethod component-visited-p ((o operation) (c component)) (defmethod (setf visiting-component) (new-value (o operation) (c component)) (defmethod component-visiting-p ((o operation) (c component)) all get updated to use new variables +(defmethod component-depends-on ((o operation) (c component)) looks up dependencies from :depends-on slot reintroduce circularity check. also rewrote the dependency traversing to introduce new operations as and when it needs to +(defmethod component-depends-on ((operation load-system) (c component)) depends on compile-system - (create-instance-for-component c :file (second i) nil))) + (create-instance-for-component c :file i nil))) oops. thanks csr
-
- Aug 03, 2001
-
-
Daniel Barlow authored
white space, commentary
-
- Aug 01, 2001
-
-
Daniel Barlow authored
-