/[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.4 by pfdietz, Sun May 4 22:26:27 2003 UTC revision 1.5 by pfdietz, Sun May 4 23:00:04 2003 UTC
# Line 419  Line 419 
419    (t nil nil)    (t nil nil)
420    123)    123)
421    
 ;;  
 ;; This next test seems to fail everywhere, but I don't understand why.  
 ;; Much gratitude if someone can explain what's wrong here.  
 ;;  
   
 (deftest change-class.6.3  
   (let* ((class (find-class 'change-class-class-06))  
          (obj (make-instance class :a 'bad)))  
     (values  
      (map-slot-boundp* obj '(a b c))  
      (eqt obj (change-class obj class :a 'also-bad))  
      (map-slot-boundp* obj '(a b c))  
      (slot-value obj 'a)  
      ))  
   (t nil nil)  
   t  
   (t nil nil)  
   123)  
   
   
422  ;;; Error tests  ;;; Error tests
423    
424  (deftest change-class.error.1  (deftest change-class.error.1

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