/[gcl]/gcl/ansi-tests/defun.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/defun.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)))))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26