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