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

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

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

revision 1.5 by pfdietz, Wed Apr 21 04:12:28 2004 UTC revision 1.6 by pfdietz, Mon Nov 29 13:23:38 2004 UTC
# Line 161  Line 161 
161       i x y a))       i x y a))
162    11 2 1 2 #(11 2 3 4))    11 2 1 2 #(11 2 3 4))
163    
164    (deftest incf.order.4
165      (let ((x 0))
166        (progn
167          "See CLtS 5.1.3"
168          (values
169           (incf x (setf x 1))
170           x)))
171      2 2)
172    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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