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

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

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

revision 1.3 by pfdietz, Sat May 31 03:43:04 2003 UTC revision 1.4 by pfdietz, Sat May 31 04:02:15 2003 UTC
# Line 190  Line 190 
190      (eval '(defclass class-0307b (class-0307a) ((a :initform 'x))))      (eval '(defclass class-0307b (class-0307a) ((a :initform 'x))))
191      (slot-value (make-instance 'class-0307b) 'a))      (slot-value (make-instance 'class-0307b) 'a))
192    x)    x)
193    
194    (deftest class-0308.1
195      (progn
196        (setf (find-class 'class-0308a) nil
197              (find-class 'class-0308b) nil)
198        (eval '(defclass class-0308a () ()))
199        (eval '(defclass class-0308b (class-0308a) (a)))
200        (eval '(defclass class-0308a () ((a :initarg :a))))
201        (eval '(defclass class-0308b (class-0308a) ()))
202        (slot-value (make-instance 'class-0308b :a 'x) 'a))
203      x)
204    
205    

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