Skip to content
Snippets Groups Projects
Commit 08ff0a47 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Disable check against operation initargs on Genera

Steven Nunez found that Genera adds its own magic initargs.
parent 07f42b88
No related branches found
No related tags found
No related merge requests found
...@@ -36,6 +36,7 @@ Therefore, all slots of all operations MUST have :allocation :class and no inita ...@@ -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))) (print-unreadable-object (o stream :type t :identity nil)))
;;; Override previous methods (from 3.1.7 and earlier) and add proper error checking. ;;; 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) (defmethod initialize-instance :after ((o operation) &rest initargs &key &allow-other-keys)
(unless (null initargs) (unless (null initargs)
(parameter-error "~S does not accept initargs" 'operation)))) (parameter-error "~S does not accept initargs" 'operation))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment