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

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

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

revision 1.2 by pfdietz, Wed Jan 19 14:02:45 2005 UTC revision 1.3 by pfdietz, Thu Jan 20 15:02:42 2005 UTC
# Line 137  Line 137 
137       (setf (defsetf.5-accessor x) 'c)       (setf (defsetf.5-accessor x) 'c)
138       x))       x))
139    c (c . b))    c (c . b))
140    
141    ;;; Test that the defsetf expansion function is defined in the same
142    ;;; lexical environment that the defsetf appears in
143    
144    (defun defsetf.6-accessor (x) (car x))
145    
146    (let ((z 'car))
147      (defsetf defsetf.6-accessor (y) (val)
148        `(setf (,z ,y) ,val)))
149    
150    (deftest defsetf.6a
151      (let ((x (cons 'a 'b)))
152        (values
153         (setf (defsetf.6-accessor x) 'c)
154         x))
155      c (c . b))

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

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