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

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

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

revision 1.1 by pfdietz, Sun Apr 20 22:59:26 2003 UTC revision 1.2 by pfdietz, Sat May 10 02:01:57 2003 UTC
# Line 92  Line 92 
92      a)      a)
93    #(0 2 2 4 4 5 6 7 8 9))    #(0 2 2 4 4 5 6 7 8 9))
94    
95    (deftest psetf.10
96      (let ((*x* 0) (*y* 10))
97        (declare (special *x* *y*))
98        (values
99         *x* *y*
100         (psetf *x* 6
101                *y* 15)
102         *x* *y*))
103      0 10 nil 6 15)
104    
105    (deftest psetf.11
106      (let ((*x* 0) (*y* 10))
107        (declare (special *x* *y*))
108        (values
109         *x* *y*
110         (psetf *x* *y*
111                *y* *x*)
112         *x* *y*))
113      0 10 nil 10 0)
114    
115  (def-macro-test psetf.error.1 (psetf))  (def-macro-test psetf.error.1 (psetf))

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