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

Diff of /gcl/ansi-tests/psetq.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 58  Line 58 
58    #(0 2 2 4 4 5 6 7 8 9)    #(0 2 2 4 4 5 6 7 8 9)
59    4)    4)
60    
61    (deftest psetq.8
62      (let ((*x* 0) (*y* 10))
63        (declare (special *x* *y*))
64        (values
65         *x* *y*
66         (psetq *x* 6
67                *y* 15)
68         *x* *y*))
69      0 10 nil 6 15)
70    
71    (deftest psetq.9
72      (let ((*x* 0) (*y* 10))
73        (declare (special *x* *y*))
74        (values
75         *x* *y*
76         (psetq *x* *y*
77                *y* *x*)
78         *x* *y*))
79      0 10 nil 10 0)
80    
81    
82    
83  (deftest psetq.error.1  (deftest psetq.error.1
84    (classify-error (funcall (macro-function 'psetq)))    (classify-error (funcall (macro-function 'psetq)))
85    program-error)    program-error)

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