Parent Directory | Revision Log | Patch
revision 1.6 by pfdietz, Wed Apr 30 01:33:03 2003 UTC | revision 1.7 by pfdietz, Tue Jul 1 02:08:54 2003 UTC | |
---|---|---|
# | Line 53 | Line 53 |
53 | c | c |
54 | (c b)) | (c b)) |
55 | ||
56 | (eval-when (load eval compile) | (eval-when #+gcl (load eval compile) |
57 | #-gcl (:load-toplevel :compile-toplevel :execute) | |
58 | (ignore-errors | (ignore-errors |
59 | (defun (setf defun-test-fun-4) (newval x) | (defun (setf defun-test-fun-4) (newval x) |
60 | (return-from defun-test-fun-4 (setf (car x) newval))))) | (return-from defun-test-fun-4 (setf (car x) newval))))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |