X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/b426ab51d0598242a4c2b57d563341db66d71f7b..268f7777bf1c2f858ce2c5cb990f3e2ec42f0646:/src/class-layout-impl.lisp?ds=sidebyside diff --git a/src/class-layout-impl.lisp b/src/class-layout-impl.lisp index 950db2b..7a2d9cc 100644 --- a/src/class-layout-impl.lisp +++ b/src/class-layout-impl.lisp @@ -129,12 +129,6 @@ (defmethod compute-effective-methods ((class sod-class)) (sod-class-messages super))) (sod-class-precedence-list class))) -(defmethod slot-unbound - (clos-class (class sod-class) (slot-name (eql 'effective-methods))) - (declare (ignore clos-class)) - (setf (slot-value class 'effective-methods) - (compute-effective-methods class))) - ;;;-------------------------------------------------------------------------- ;;; Instance layout. @@ -207,12 +201,6 @@ (defmethod compute-ilayout ((class sod-class)) (reverse chain))) (sod-class-chains class)))) -(defmethod slot-unbound - (clos-class (class sod-class) (slot-name (eql 'ilayout))) - (declare (ignore clos-class)) - (setf (slot-value class 'ilayout) - (compute-ilayout class))) - ;;;-------------------------------------------------------------------------- ;;; Vtable layout. @@ -390,10 +378,4 @@ (defmethod compute-vtables ((class sod-class)) (compute-vtable class (reverse chain))) (sod-class-chains class))) -(defmethod slot-unbound - (clos-class (class sod-class) (slot-name (eql 'vtables))) - (declare (ignore clos-class)) - (setf (slot-value class 'vtables) - (compute-vtables class))) - ;;;----- That's all, folks --------------------------------------------------