Parent Directory | Revision Log | 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) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |