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

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

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

revision 1.1 by pfdietz, Tue Oct 8 02:35:57 2002 UTC revision 1.2 by pfdietz, Tue Oct 8 04:55:07 2002 UTC
# Line 235  Line 235 
235        (values (setf (%m x) 2)        (values (setf (%m x) 2)
236                (1+ (car x)))))                (1+ (car x)))))
237    2 3)    2 3)
         
238    
239    ;;; section 5.1.2.8 -- symbol macros
240    (deftest setf-symbol-macro.1
241      (symbol-macrolet ((x y))
242        (let ((y nil))
243          (values (setf x 1) x y)))
244      1 1 1)
245    
246    ;;; Symbol macros in SETQs are treated as if the form were a SETF
247    (deftest setf-symbol-macro.2
248      (symbol-macrolet ((x y))
249        (let ((y nil))
250          (values (setq x 1) x y)))
251      1 1 1)

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