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

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

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

revision 1.1 by pfdietz, Sat May 10 21:06:58 2003 UTC revision 1.2 by pfdietz, Wed May 14 12:25:06 2003 UTC
# Line 39  Line 39 
39          collect slot-name)          collect slot-name)
40    nil)    nil)
41    
42    ;;; Order of evaluation test(s)
43    
44    (deftest slot-makunbound.order.1
45      (let ((obj (make-instance 'slot-makunbound-class-01))
46            (i 0) x y)
47        (values
48         (eqt (slot-makunbound (progn (setf x (incf i)) obj)
49                               (progn (setf y (incf i)) 'a))
50              obj)
51         i x y))
52      t 2 1 2)
53    
54    (deftest slot-makunbound.order.2
55      (let ((obj (make-instance 'slot-makunbound-class-01))
56            (i 0) x y)
57        (setf (slot-value obj 'a) t)
58        (values
59         (eqt (slot-makunbound (progn (setf x (incf i)) obj)
60                               (progn (setf y (incf i)) 'a))
61              obj)
62         i x y))
63      t 2 1 2)
64    
65  ;;; Error cases  ;;; Error cases
66    

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