/[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.3 by pfdietz, Sun May 4 22:09:11 2003 UTC revision 1.4 by pfdietz, Sun May 4 22:26:27 2003 UTC
# Line 156  Line 156 
156     (eval     (eval
157      '(let ((obj (make-instance 'change-class-class-01a))      '(let ((obj (make-instance 'change-class-class-01a))
158             (new-class (find-class 'change-class-class-01b)))             (new-class (find-class 'change-class-class-01b)))
159           (declare (optimize (safety 3)))
160         (eqt obj (change-class obj new-class :nonsense t))))         (eqt obj (change-class obj new-class :nonsense t))))
161     (error () :expected-error))     (error () :expected-error))
162    :expected-error)    :expected-error)
# Line 418  Line 419 
419    (t nil nil)    (t nil nil)
420    123)    123)
421    
422    ;;
423    ;; This next test seems to fail everywhere, but I don't understand why.
424    ;; Much gratitude if someone can explain what's wrong here.
425    ;;
426    
427  (deftest change-class.6.3  (deftest change-class.6.3
428    (let* ((class (find-class 'change-class-class-06))    (let* ((class (find-class 'change-class-class-06))
429           (obj (make-instance class :a 'bad)))           (obj (make-instance class :a 'bad)))

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