Parent Directory | Revision Log | Patch
revision 1.12 by pfdietz, Tue Jul 1 13:06:30 2003 UTC | revision 1.13 by pfdietz, Sat Jul 12 13:46:01 2003 UTC | |
---|---|---|
# | Line 47 | Line 47 |
47 | (typep '(lambda (x) x) 'function) | (typep '(lambda (x) x) 'function) |
48 | nil) | nil) |
49 | ||
50 | (eval-when #+gcl (eval compile) | (report-and-ignore-errors |
51 | #-gcl (:load-toplevel :compile-toplevel :execute) | (defun (setf function-7-accessor) (y x) (setf (car x) y) y)) |
(ignore-errors | ||
(defun (setf function-7-accessor) (y x) (setf (car x) y) y))) | ||
52 | ||
53 | (deftest function.7 | (deftest function.7 |
54 | (not-mv (typep #'(setf function-7-accessor) 'function)) | (not-mv (typep #'(setf function-7-accessor) 'function)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |