/[gcl]/gcl/ansi-tests/make-instances-obsolete.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/make-instances-obsolete.lsp

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

revision 1.3 by pfdietz, Sat May 15 12:41:33 2004 UTC revision 1.4 by pfdietz, Tue Feb 1 02:52:22 2005 UTC
# Line 12  Line 12 
12     (d :initarg :d :type fixnum :initform 0)))     (d :initarg :d :type fixnum :initform 0)))
13    
14  (deftest make-instances-obsolete.1  (deftest make-instances-obsolete.1
15    (let* ((class (find-class 'make-instances-obsolete-class-01))    (let* ((class-designator 'make-instances-obsolete-class-01)
16             (class (find-class class-designator))
17           (obj (make-instance class :a 'x :b 'y :c 'z :d 17)))           (obj (make-instance class :a 'x :b 'y :c 'z :d 17)))
18      (values      (values
19       (eqt (class-of obj) class)       (eqt (class-of obj) class)
20       (map-slot-value obj '(a b c d))       (map-slot-value obj '(a b c d))
21       (eqt (make-instances-obsolete class) class)       (let ((val (make-instances-obsolete class)))
22           (or (eqt val class-designator)
23               (eqt val class)))
24       (map-slot-value obj '(a b c d))))       (map-slot-value obj '(a b c d))))
25    t (x y z 17) t (x y z 17))    t (x y z 17) t (x y z 17))
26    
# Line 28  Line 31 
31      (values      (values
32       (eqt (class-of obj) class)       (eqt (class-of obj) class)
33       (map-slot-value obj '(a b c d))       (map-slot-value obj '(a b c d))
34       (eqt (make-instances-obsolete class-designator) class-designator)       (let ((val (make-instances-obsolete class-designator)))
35           (or (eqt val class-designator)
36               (eqt val class)))
37       (map-slot-value obj '(a b c d))))       (map-slot-value obj '(a b c d))))
38    t (x y z 17) t (x y z 17))    t (x y z 17) t (x y z 17))
39    

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