/[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.3 by pfdietz, Sat Apr 26 15:02:35 2003 UTC revision 1.4 by pfdietz, Sat Apr 26 16:05:04 2003 UTC
# Line 215  Line 215 
215    t t t    t t t
216    x y z)    x y z)
217    
218    ;;;
219    
220    ;;; Initforms are inherited even if :allocation changes
221    
222    (defclass class-0208a ()
223      ((a :allocation :class :initform 'x)))
224    
225    (defclass class-0208b (class-0208a)
226      ((a :allocation :instance)))
227    
228    (deftest class-0208.1
229      (values
230       (slot-value (make-instance 'class-0208a) 'a)
231       (slot-value (make-instance 'class-0208b) 'a))
232      x x)

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

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