Skip to content
Snippets Groups Projects
  1. Feb 22, 2002
    • Daniel Barlow's avatar
      - (:use "CL")) · cc1db98b
      Daniel Barlow authored
       +  (:use :cl))
      may help people with odd read/print case (or ACL "modern" mode users)
       -    "telent:asdf;systems;"))
       +    #+nil "telent:asdf;systems;"))
      clisp objects to this
      fix pathname merging in internal-find-system so it works with CMUCL's
      rather odd *default-pathname-defaults*
      add a run-shell-command dfefintion for cmucl
      cc1db98b
  2. Feb 20, 2002
    • Daniel Barlow's avatar
      rejigged the condition hierarchy slightly · 27a91156
      Daniel Barlow authored
       -(defmethod component-depends-on ((operation load-op) (c source-file))
       +(defmethod component-depends-on ((operation load-op) (c component))
       +(defun internal-find-system (name)
      does everything find-system does, but returns nil instead of raising an error.
      27a91156
    • Daniel Barlow's avatar
      version-satisfies is not just a method not an operation · a28bd5a2
      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
      a28bd5a2
  3. Feb 19, 2002
    • Daniel Barlow's avatar
      (defclass module (component) · 6f6d3345
      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)
      6f6d3345
  4. Feb 14, 2002
    • Daniel Barlow's avatar
      component class · 3ec3a499
      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 ...
      3ec3a499
    • Daniel Barlow's avatar
      s/{compile,load}-system/{compile,load}-op/ · 9d9f8a71
      Daniel Barlow authored
      defsystem parsing basically totally rewritten.  diffs unmeaningful,
      so UTSL
      9d9f8a71
  5. Feb 11, 2002
  6. Dec 04, 2001
  7. Aug 20, 2001
  8. Aug 06, 2001
    • Daniel Barlow's avatar
      8ad709bc
    • Daniel Barlow's avatar
      +(define-condition missing-dependency (system-definition-error) · 3708d88d
      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
      3708d88d
  9. Aug 03, 2001
  10. Aug 01, 2001
Loading