Parent Directory | Revision Log | Patch
revision 1.8 by pfdietz, Tue Jul 1 02:08:54 2003 UTC | revision 1.9 by pfdietz, Tue Jul 1 13:06:30 2003 UTC | |
---|---|---|
# | Line 27 | Line 27 |
27 | (not-mv (fboundp 'fboundp-5-fn)) | (not-mv (fboundp 'fboundp-5-fn)) |
28 | nil) | nil) |
29 | ||
30 | (eval-when #+gcl (eval compile) | (eval-when #+gcl (eval compile load) |
31 | #-gcl (:load-toplevel :compile-toplevel) | #-gcl (:load-toplevel :compile-toplevel :execute) |
32 | (ignore-errors | (ignore-errors |
33 | (defun (setf fboundp-6-accessor) (y x) (setf (car x) y)))) | (defun (setf fboundp-6-accessor) (y x) (setf (car x) y)))) |
34 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |