Plaster

common-lisp
(defclass my-generic-function (standard-generic-function) () (:metaclass closer-mop:funcallable-standard-class)) ;; Works fine (defgeneric a-function (x) (:generic-function-class my-generic-function)) (defgeneric another-function (x)) ;; Fails due to definition above. (defgeneric another-function (x) (:generic-function-class my-generic-function)) => Cannot CHANGE-CLASS objects into GENERIC-FUNCTION metaobjects. [Condition of type SB-PCL::METAOBJECT-INITIALIZATION-VIOLATION] See also: The Art of the Metaobject Protocol, GENERIC-FUNCTION [:initialization]

Annotations