/[gcl]/gcl/ansi-tests/change-class.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/change-class.lsp

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

revision 1.2 by pfdietz, Sun May 4 20:24:30 2003 UTC revision 1.3 by pfdietz, Sun May 4 22:09:11 2003 UTC
# Line 418  Line 418 
418    (t nil nil)    (t nil nil)
419    123)    123)
420    
421    (deftest change-class.6.3
422      (let* ((class (find-class 'change-class-class-06))
423             (obj (make-instance class :a 'bad)))
424        (values
425         (map-slot-boundp* obj '(a b c))
426         (eqt obj (change-class obj class :a 'also-bad))
427         (map-slot-boundp* obj '(a b c))
428         (slot-value obj 'a)
429         ))
430      (t nil nil)
431      t
432      (t nil nil)
433      123)
434    
435    
436  ;;; Error tests  ;;; Error tests
437    

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