~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add build machinery for the manual.
[sod]
/
src
/
class-layout-impl.lisp
diff --git
a/src/class-layout-impl.lisp
b/src/class-layout-impl.lisp
index
950db2b
..
7a2d9cc
100644
(file)
--- a/
src/class-layout-impl.lisp
+++ b/
src/class-layout-impl.lisp
@@
-129,12
+129,6
@@
(sod-class-messages super)))
(sod-class-precedence-list 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.
;;;--------------------------------------------------------------------------
;;; Instance layout.
@@
-207,12
+201,6
@@
(reverse chain)))
(sod-class-chains 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.
;;;--------------------------------------------------------------------------
;;; Vtable layout.
@@
-390,10
+378,4
@@
(compute-vtable class (reverse chain)))
(sod-class-chains 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 --------------------------------------------------
;;;----- That's all, folks --------------------------------------------------