HCoop
/
clinton
/
lisp-on-lines.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Expanded support for Configurable editing.
[clinton/lisp-on-lines.git]
/
src
/
standard-descriptions
/
clos.lisp
diff --git
a/src/standard-descriptions/clos.lisp
b/src/standard-descriptions/clos.lisp
index
dc056a1
..
f9e661c
100644
(file)
--- a/
src/standard-descriptions/clos.lisp
+++ b/
src/standard-descriptions/clos.lisp
@@
-76,10
+76,18
@@
(finalize-inheritance class)
(ensure-description-for-class class))
(finalize-inheritance class)
(ensure-description-for-class class))
+(defclass described-standard-class (standard-class described-class) ())
+
+(defmethod validate-superclass
+ ((class described-standard-class)
+ (superclass standard-class))
+ t)
(define-layered-method description-of ((object standard-object))
(or (ignore-errors (find-description (class-name (class-of object))))
(find-description 'standard-object)))
(define-layered-method description-of ((object standard-object))
(or (ignore-errors (find-description (class-name (class-of object))))
(find-description 'standard-object)))
+
+