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

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

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

revision 1.6 by pfdietz, Sat Feb 8 06:23:02 2003 UTC revision 1.7 by pfdietz, Mon Feb 17 04:22:03 2003 UTC
# Line 130  Line 130 
130    (funcall (coerce '(lambda () 10) 'function))    (funcall (coerce '(lambda () 10) 'function))
131    10)    10)
132    
133  (deftest coerce.23  (deftest coerce.order.1
134    (let ((i 0) a b)    (let ((i 0) a b)
135      (values      (values
136       (coerce (progn (setf a (incf i)) 10)       (coerce (progn (setf a (incf i)) 10)

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

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