Commit cfa50ffd authored by Robert P. Goldman's avatar Robert P. Goldman

Fixed bug in error signaling.

parent 5e21bb43
......@@ -222,10 +222,11 @@ OPERATION objects."))
:return t
:finally (return nil))
(error 'operation-definition-error
:format-control
"No dependency propagating scheme specified for operation ~a.~
This is likely because the OPERATION subclass of this object has not been ~
updated for ASDF 3."
obj)))
:format-arguments (list obj))))
(defmethod initialize-instance :before ((obj non-propagating-operation) &key)
(when
......@@ -235,8 +236,12 @@ updated for ASDF 3."
:return t
:finally (return nil))
(error 'operation-definition-error
:format-control
"Inconsistent class: ~a No class should have both NON-PROPAGATING-OPERATION and a propagating
operation class as superclasses." (class-name (class-of obj)))))
operation class as superclasses."
:format-arguments
(list
(class-name (class-of obj))))))
;;;---------------------------------------------------------------------------
;;; End of OPERATION class checking
......
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