/[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.3 by pfdietz, Wed Apr 30 01:33:49 2003 UTC revision 1.4 by pfdietz, Thu May 15 12:12:32 2003 UTC
# Line 105  Line 105 
105       (map-slot-value obj2 '(a b))))       (map-slot-value obj2 '(a b))))
106    t (3 20))    t (3 20))
107    
108    ;;; Order of evaluation tests
109    
110    (deftest reinitialize-instance.order.1
111      (let* ((obj (make-instance 'reinit-class-01))
112             (i 0) x y z w
113             (obj2 (reinitialize-instance
114                    (progn (setf x (incf i)) obj)
115                    :b (setf y (incf i))
116                    :a (setf z (incf i))
117                    :b (setf w (incf i)))))
118        (values
119         (eqt obj obj2)
120         (map-slot-value obj2 '(a b))
121         i x y z w))
122      t (3 2) 4 1 2 3 4)
123    
124  ;;; Error cases  ;;; Error cases
125    
126  (deftest reinitialize-instance.error.1  (deftest reinitialize-instance.error.1
# Line 116  Line 132 
132  (deftest reinitialize-instance.error.2  (deftest reinitialize-instance.error.2
133    (classify-error (reinitialize-instance))    (classify-error (reinitialize-instance))
134    program-error)    program-error)
   
   
   
   
   
   
   

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