Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Tue Oct 8 03:00:06 2002 UTC | revision 1.3 by pfdietz, Tue Oct 8 03:06:25 2002 UTC | |
---|---|---|
# | Line 39 | Line 39 |
39 | (typep '(lambda (x) x) 'function) | (typep '(lambda (x) x) 'function) |
40 | nil) | nil) |
41 | ||
42 | ;;; (deftest function.7 | (defun function-7-accessor-fn (x y) (setf (car x) y) y) |
43 | ;;; (not (typep #'(setf car) 'function)) | (defsetf function-7-accessor function-7-accessor-fn) |
44 | ;;; nil) | |
45 | (deftest function.7 | |
46 | (not (typep #'(setf function-7-accessor) 'function)) | |
47 | nil) | |
48 | ||
49 | (deftest function.8 | (deftest function.8 |
50 | (not (typep #'(lambda (x) x) 'function)) | (not (typep #'(lambda (x) x) 'function)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |