/[gcl]/gcl/ansi-tests/bit.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/bit.lsp

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

revision 1.1 by pfdietz, Sun Jan 26 21:31:33 2003 UTC revision 1.2 by pfdietz, Sat Feb 8 06:23:02 2003 UTC
# Line 108  Line 108 
108    (1 0 0 1 1 0 0 0 1 1)    (1 0 0 1 1 0 0 0 1 1)
109    (1 0 0 1 1 0 0 0 1 1)    (1 0 0 1 1 0 0 0 1 1)
110    (1 0 0 1 1 0 0 0 1 1))    (1 0 0 1 1 0 0 0 1 1))
111    
112    ;;; Order of evaluation tests
113    
114    (deftest bit.9
115      (let ((x 0) y z
116            (b (copy-seq #*01010)))
117        (values
118         (bit (progn (setf y (incf x)) b)
119              (progn (setf z (incf x)) 1))
120         x y z))
121      1 2 1 2)
122    
123    (deftest bit.10
124      (let ((x 0) y z w
125            (b (copy-seq #*01010)))
126        (values
127         (setf (bit (progn (setf y (incf x)) b)
128                    (progn (setf z (incf x)) 1))
129               (progn (setf w (incf x)) 0))
130         b
131         x y z w))
132      0 #*00010 3 1 2 3)
133    

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