/[gcl]/gcl/ansi-tests/slot-value.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/slot-value.lsp

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

revision 1.1 by pfdietz, Sun May 11 17:29:37 2003 UTC revision 1.2 by pfdietz, Wed May 14 12:25:06 2003 UTC
# Line 79  Line 79 
79            collect name))            collect name))
80    nil)    nil)
81    
82    ;;; Order of evaluation test(s)
83    
84    (deftest slot-value.order.1
85      (let ((obj (make-instance 'slot-value-class-01))
86            (i 0) x y)
87        (values
88         (setf (slot-value obj 'a) t)
89         (slot-value (progn (setf x (incf i)) obj)
90                     (progn (setf y (incf i)) 'a))
91         i x y))
92      t t 2 1 2)
93    
94    (deftest slot-value.order.2
95      (let ((obj (make-instance 'slot-value-class-01))
96            (i 0) x y)
97        (values
98         (setf (slot-value (progn (setf x (incf i)) obj)
99                           (progn (setf y (incf i)) 'b))
100               t)
101         (slot-value obj 'b)
102         i x y))
103      t t 2 1 2)
104    
105  ;;; Error tests  ;;; Error tests
106    

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