/[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.2 by pfdietz, Sat May 31 02:41:35 2003 UTC revision 1.3 by pfdietz, Sat May 31 03:43:04 2003 UTC
# Line 178  Line 178 
178          collect (a-slot obj))          collect (a-slot obj))
179    (nil x y x x x x y))    (nil x y x x x x y))
180    
181    ;;; A class redefinition test that came up in cmucl
182    
183    (deftest class-0307.1
184      (progn
185        (setf (find-class 'class-0307a) nil
186              (find-class 'class-0307b) nil)
187        (eval '(defclass class-0307a () ()))
188        (eval '(defclass class-0307b (class-0307a) (a)))
189        (eval '(defclass class-0307a () ((a :initform nil))))
190        (eval '(defclass class-0307b (class-0307a) ((a :initform 'x))))
191        (slot-value (make-instance 'class-0307b) 'a))
192      x)

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