Commit 5cb74d76 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Fixes for ASDF 3.1

parent ab76dd68
......@@ -109,7 +109,10 @@ to the base of the system."
(:foo-system (\"component2\") :data-files ())"))))
;; Used by XCVB.
(defclass dependency-op (downward-operation) ())
(defclass dependency-op (load-source-op)
((selfward-operation :initform 'prepare-dependency-op)))
(defclass prepare-dependency-op (prepare-source-op)
((sideway-operation :initform 'dependency-op)))
(defun state-of (op component)
(declare (ignore op))
......@@ -119,9 +122,6 @@ to the base of the system."
(declare (ignore op))
(setf (slot-value component 'last-grovel-state) new-val))
(defmethod source-file-type ((c component-file) (s module))
(defmethod output-files ((op dependency-op) (c component-file))
;; XXX: base-pathname?
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment