Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
cfa50ffd
Commit
cfa50ffd
authored
Jan 21, 2014
by
Robert P. Goldman
Browse files
Fixed bug in error signaling.
parent
5e21bb43
Changes
1
Hide whitespace changes
Inline
Side-by-side
action.lisp
View file @
cfa50ffd
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment