/[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.7 by pfdietz, Sat Apr 26 16:37:33 2003 UTC revision 1.8 by pfdietz, Sat Apr 26 20:20:07 2003 UTC
# Line 315  Line 315 
315        z        z
316        x y z)))        x y z)))
317    
318    ;;; Initforms are inherited even if :allocation changes
319    
320    (defclass class-0211a ()
321      ((a :allocation :instance :initform 'x)))
322    
323    (defclass class-0211b (class-0211a)
324      ((a :allocation :class)))
325    
326    (deftest class-0211.1
327      (values
328       (slot-value (make-instance 'class-0211a) 'a)
329       (slot-value (make-instance 'class-0211b) 'a))
330      x x)
331    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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