Parent Directory | Revision Log | Patch
revision 1.10 by pfdietz, Fri Jan 24 04:22:54 2003 UTC | revision 1.11 by pfdietz, Mon Feb 17 11:54:02 2003 UTC | |
---|---|---|
# | Line 80 | Line 80 |
80 | (flet ((%f () nil)) (not-mv (functionp #'%f))) | (flet ((%f () nil)) (not-mv (functionp #'%f))) |
81 | nil) | nil) |
82 | ||
83 | (deftest functionp.order.1 | |
84 | (let ((i 0)) | |
85 | (values | |
86 | (notnot (functionp (progn (incf i) #'cons))) | |
87 | i)) | |
88 | t 1) | |
89 | ||
90 | (deftest functionp.error.1 | (deftest functionp.error.1 |
91 | (classify-error (functionp)) | (classify-error (functionp)) |
92 | program-error) | program-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |