~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
An actual running implementation, which makes code that compiles.
[sod]
/
src
/
class-layout-impl.lisp
diff --git
a/src/class-layout-impl.lisp
b/src/class-layout-impl.lisp
index
68c989b
..
3a5b5cd
100644
(file)
--- a/
src/class-layout-impl.lisp
+++ b/
src/class-layout-impl.lisp
@@
-130,6
+130,7
@@
(defmethod slot-unbound
(clos-class (class sod-class) (slot-name (eql 'effective-methods)))
(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)))
(setf (slot-value class 'effective-methods)
(compute-effective-methods class)))
@@
-207,6
+208,7
@@
(defmethod slot-unbound
(clos-class (class sod-class) (slot-name (eql 'ilayout)))
(defmethod slot-unbound
(clos-class (class sod-class) (slot-name (eql 'ilayout)))
+ (declare (ignore clos-class))
(setf (slot-value class 'ilayout)
(compute-ilayout class)))
(setf (slot-value class 'ilayout)
(compute-ilayout class)))
@@
-389,6
+391,7
@@
(defmethod slot-unbound
(clos-class (class sod-class) (slot-name (eql 'vtables)))
(defmethod slot-unbound
(clos-class (class sod-class) (slot-name (eql 'vtables)))
+ (declare (ignore clos-class))
(setf (slot-value class 'vtables)
(compute-vtables class)))
(setf (slot-value class 'vtables)
(compute-vtables class)))