/[gcl]/gcl/ansi-tests/defclass-02.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/defclass-02.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by pfdietz, Sat Apr 26 14:38:08 2003 UTC revision 1.3 by pfdietz, Sat Apr 26 15:02:35 2003 UTC
# Line 88  Line 88 
88       (map-slot-boundp* c2 '(a b c d))       (map-slot-boundp* c2 '(a b c d))
89       (slot-value c1 'a)       (slot-value c1 'a)
90       (slot-value c2 'a)       (slot-value c2 'a)
91       (eq (slot-makunbound c2 'a) c1)       (eq (slot-makunbound c2 'a) c2)
92       (map-slot-boundp* c1 '(a b))       (map-slot-boundp* c1 '(a b))
93       (map-slot-boundp* c2 '(a b c d))))       (map-slot-boundp* c2 '(a b c d))))
94    (nil nil)    (nil nil)
# Line 168  Line 168 
168    
169  ;;;  ;;;
170    
171    ;;; Show shadowing of slots by :allocation
172    
173  (defclass class-0207a ()  (defclass class-0207a ()
174    ((a :allocation :class)))    ((a :allocation :class)))
175    
# Line 212  Line 214 
214    z    z
215    t t t    t t t
216    x y z)    x y z)
217    

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