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
......@@ -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))))
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