Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Mon Oct 7 12:31:17 2002 UTC | revision 1.2 by pfdietz, Tue Oct 8 03:00:06 2002 UTC | |
---|---|---|
# | Line 39 | Line 39 |
39 | (functionp '(lambda (x) x)) | (functionp '(lambda (x) x)) |
40 | nil) | nil) |
41 | ||
42 | (deftest functionp.7 | ;;; (deftest functionp.7 |
43 | (not (functionp #'(setf car))) | ;;; (not (functionp #'(setf car))) |
44 | nil) | ;;; nil) |
45 | ||
46 | (deftest functionp.8 | (deftest functionp.8 |
47 | (not (functionp #'(lambda (x) x))) | (not (functionp #'(lambda (x) x))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |