/[gcl]/gcl/ansi-tests/reinitialize-instance.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/reinitialize-instance.lsp

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

revision 1.1 by pfdietz, Tue Apr 29 03:06:24 2003 UTC revision 1.2 by pfdietz, Tue Apr 29 03:18:29 2003 UTC
# Line 50  Line 50 
50       (map-slot-value obj '(s1 s2))))       (map-slot-value obj '(s1 s2))))
51    t (a b))    t (a b))
52    
53    (deftest reinitialize-instance.6
54      (let* ((obj (make-instance 'class-07 :s1a 'a))
55             (obj2 (reinitialize-instance obj :s1b 'b)))
56        (values
57         (eqt obj obj2)
58         (slot-value obj 's1)
59         (slot-boundp* obj 's2)))
60      t b nil)
61    
62    (deftest reinitialize-instance.7
63      (let* ((obj (make-instance 'class-07 :s1a 'a))
64             (obj2 (reinitialize-instance obj :s2 'b)))
65        (values
66         (eqt obj obj2)
67         (slot-value obj 's1)
68         (slot-value obj 's2)))
69      t a b)
70    
71    
72    
73    
74    
75    
76    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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