Parent Directory | Revision Log | Patch
revision 1.11 by pfdietz, Mon Feb 17 11:54:02 2003 UTC | revision 1.12 by pfdietz, Tue Jul 1 02:08:54 2003 UTC | |
---|---|---|
# | Line 46 | Line 46 |
46 | (functionp '(lambda (x) x)) | (functionp '(lambda (x) x)) |
47 | nil) | nil) |
48 | ||
49 | (eval-when (eval compile) | (eval-when #+gcl (eval compile) |
50 | #-gcl (:load-toplevel :compile-toplevel) | |
51 | (ignore-errors | (ignore-errors |
52 | (defun (setf functionp-7-accessor) (y x) (setf (car x) y) y))) | (defun (setf functionp-7-accessor) (y x) (setf (car x) y) y))) |
53 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |