Commit 12a78a5b authored by Pascal Costanza's avatar Pascal Costanza
Browse files

In SBCL, ensure-finalized can now be used instead of finalize-inheritance.

darcs-hash:9bee3da0cfadb4632eb40c3c92f191f3ee348771
parent 02cbf9c8
Loading
Loading
Loading
Loading
+2 −2
Original line number Diff line number Diff line
@@ -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)