Parent Directory | Revision Log | Patch
revision 1.8 by pfdietz, Fri Dec 20 04:04:58 2002 UTC | revision 1.9 by pfdietz, Mon Jan 13 14:11:50 2003 UTC | |
---|---|---|
# | Line 80 | Line 80 |
80 | (flet ((%f () nil)) (not (functionp #'%f))) | (flet ((%f () nil)) (not (functionp #'%f))) |
81 | nil) | nil) |
82 | ||
83 | (deftest functionp.13 | |
84 | (classify-error (functionp)) | |
85 | program-error) | |
86 | ||
87 | (deftest functionp.14 | |
88 | (classify-error (functionp #'cons nil)) | |
89 | program-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |