Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Tue Oct 8 03:06:25 2002 UTC | revision 1.4 by pfdietz, Tue Oct 8 04:55:07 2002 UTC | |
---|---|---|
# | Line 39 | Line 39 |
39 | (functionp '(lambda (x) x)) | (functionp '(lambda (x) x)) |
40 | nil) | nil) |
41 | ||
42 | (defun functionp-7-accessor-fn (x y) (setf (car x) y) y) | (eval-when (eval compile) |
43 | (defsetf functionp-7-accessor functionp-7-accessor-fn) | (ignore-errors |
44 | (defun (setf functionp-7-accessor) (y x) (setf (car x) y) y))) | |
45 | ||
46 | (deftest functionp.7 | (deftest functionp.7 |
47 | (not (functionp #'(setf functionp-7-accessor))) | (not (functionp #'(setf functionp-7-accessor))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |