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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by pfdietz, Fri Oct 11 00:59:20 2002 UTC revision 1.6 by pfdietz, Sun Oct 13 16:44:49 2002 UTC
# Line 105  Line 105 
105  ;;; Definition of a (setf ...) function  ;;; Definition of a (setf ...) function
106    
107  (deftest flet.17  (deftest flet.17
108    (flet (((setf %f) (x y) (setf (car x) y)))    (flet (((setf %f) (x y) (setf (car y) x)))
109      (let ((z (list 1 2)))      (let ((z (list 1 2)))
110        (setf (%f z) 'a)        (setf (%f z) 'a)
111        z))        z))

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

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