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

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

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

revision 1.1 by pfdietz, Thu Oct 10 02:07:29 2002 UTC revision 1.2 by pfdietz, Sun Oct 13 16:44:49 2002 UTC
# Line 104  Line 104 
104  ;;; Definition of a (setf ...) function  ;;; Definition of a (setf ...) function
105    
106  (deftest labels.17  (deftest labels.17
107    (labels (((setf %f) (x y) (setf (car x) y)))    (labels (((setf %f) (x y) (setf (car y) x)))
108      (let ((z (list 1 2)))      (let ((z (list 1 2)))
109        (setf (%f z) 'a)        (setf (%f z) 'a)
110        z))        z))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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