Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Hugo Ishimaru
asdf
Commits
08ff0a47
Commit
08ff0a47
authored
Sep 01, 2017
by
Francois-Rene Rideau
Browse files
Disable check against operation initargs on Genera
Steven Nunez found that Genera adds its own magic initargs.
parent
07f42b88
Changes
1
Hide whitespace changes
Inline
Side-by-side
operation.lisp
View file @
08ff0a47
...
...
@@ -36,6 +36,7 @@ Therefore, all slots of all operations MUST have :allocation :class and no inita
(
print-unreadable-object
(
o
stream
:type
t
:identity
nil
)))
;;; Override previous methods (from 3.1.7 and earlier) and add proper error checking.
#-
genera
;; Genera adds its own system initargs, e.g. clos-internals:storage-area 8
(
defmethod
initialize-instance
:after
((
o
operation
)
&rest
initargs
&key
&allow-other-keys
)
(
unless
(
null
initargs
)
(
parameter-error
"~S does not accept initargs"
'operation
))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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