Parent Directory | Revision Log | Patch
revision 1.2 by camm, Sat May 7 02:52:30 2005 UTC | revision 1.3 by camm, Sat Jul 23 08:56:09 2005 UTC | |
---|---|---|
# | Line 124 | Line 124 |
124 | ||
125 | (defmacro instance-ref (slots index) | (defmacro instance-ref (slots index) |
126 | `(svref ,slots ,index)) | `(svref ,slots ,index)) |
127 | ||
128 | (si::putprop 'std-instance '(lambda nil `(and slot-object (not (funcallable-standard-object)))) 'si::deftype-definition) | |
129 | ||
130 | ;(defmacro std-instance-p (object) | |
131 | ; `(or (typep ,object 'si::instance) (structurep ,object))) | |
132 | ; `(or (typep ,object 'si::instance) (%std-instance-p ,object))) | |
133 | ) | ) |
134 | ||
135 | #+new-kcl-wrapper | #+new-kcl-wrapper |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |