/[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.4 by pfdietz, Sat Apr 26 16:05:04 2003 UTC revision 1.5 by pfdietz, Sat Apr 26 16:17:35 2003 UTC
# Line 230  Line 230 
230     (slot-value (make-instance 'class-0208a) 'a)     (slot-value (make-instance 'class-0208a) 'a)
231     (slot-value (make-instance 'class-0208b) 'a))     (slot-value (make-instance 'class-0208b) 'a))
232    x x)    x x)
233    
234    ;;;
235    
236    ;;; That was failing when things were reloaded.
237    ;;; Try a test that redefines it
238    
239    (deftest class-redefinition.1
240      (let*
241        ((cobj1 (eval '(defclass class-0209a ()
242                         ((a :allocation :class :initform 'x)))))
243         (cobj2 (eval '(defclass class-0209b (class-0209a)
244                         ((a :allocation :instance)))))
245         (cobj3 (eval '(defclass class-0209a ()
246                         ((a :allocation :class :initform 'x)))))
247         (cobj4 (eval '(defclass class-0209b (class-0209a)
248                         ((a :allocation :instance))))))
249        (values
250         (eq cobj1 cobj3)
251         (eq cobj2 cobj4)
252         (class-name cobj1)
253         (class-name cobj3)
254         (slot-value (make-instance 'class-0209a) 'a)
255         (slot-value (make-instance 'class-0209b) 'a)))
256      t t
257      class-0209a
258      class-0209b
259      x x)
260    

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

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