/[gcl]/gcl/pcl/gcl_pcl_low.lisp
ViewVC logotype

Diff of /gcl/pcl/gcl_pcl_low.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26