Loading al-mixins.lisp +2 −2 Original line number Diff line number Diff line Loading @@ -146,8 +146,8 @@ (let ((,new-class (apply #'ensure-class (class-name *the-class*) (finalize-class-spec-alist-plist *the-class* *class-spec*)))) #+(or cmu mcl openmcl sbcl) (finalize-inheritance ,new-class) #-(or cmu mcl openmcl sbcl) (ensure-finalized ,new-class) #+(or cmu mcl openmcl) (finalize-inheritance ,new-class) #-(or cmu mcl openmcl) (ensure-finalized ,new-class) ,new-class)))))) (defmacro with-slot (slot &body body) Loading Loading
al-mixins.lisp +2 −2 Original line number Diff line number Diff line Loading @@ -146,8 +146,8 @@ (let ((,new-class (apply #'ensure-class (class-name *the-class*) (finalize-class-spec-alist-plist *the-class* *class-spec*)))) #+(or cmu mcl openmcl sbcl) (finalize-inheritance ,new-class) #-(or cmu mcl openmcl sbcl) (ensure-finalized ,new-class) #+(or cmu mcl openmcl) (finalize-inheritance ,new-class) #-(or cmu mcl openmcl) (ensure-finalized ,new-class) ,new-class)))))) (defmacro with-slot (slot &body body) Loading