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

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

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

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

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