Parent Directory | Revision Log | Patch
revision 1.5 by pfdietz, Sun Apr 20 22:59:25 2003 UTC | revision 1.6 by pfdietz, Wed Apr 30 01:33:03 2003 UTC | |
---|---|---|
# | Line 53 | Line 53 |
53 | c | c |
54 | (c b)) | (c b)) |
55 | ||
56 | (defun (setf defun-test-fun-4) (newval x) | (eval-when (load eval compile) |
57 | (return-from defun-test-fun-4 (setf (car x) newval))) | (ignore-errors |
58 | (defun (setf defun-test-fun-4) (newval x) | |
59 | (return-from defun-test-fun-4 (setf (car x) newval))))) | |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |