/[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.7 by pfdietz, Sun Apr 20 22:59:26 2003 UTC revision 1.8 by pfdietz, Sat May 10 02:01:57 2003 UTC
# Line 227  Line 227 
227    (let (x) (setq x (values 1 2)))    (let (x) (setq x (values 1 2)))
228    1)    1)
229    
230    (deftest setq.5
231      (let ((*x* 0))
232        (declare (special *x*))
233        (values *x* (setq *x* 1) *x*))
234      0 1 1)
235    
236    (deftest setq.6
237      (let ((*x* 0))
238        (declare (special *x*))
239        (setq *x* 1))
240      1)
241        
242    
243  (deftest setf.1  (deftest setf.1
244    (setf)    (setf)
245    nil)    nil)
# Line 244  Line 257 
257  (deftest setf.4  (deftest setf.4
258    (let (x) (setf x (values 1 2)))    (let (x) (setf x (values 1 2)))
259    1)    1)
260    
261    (deftest setf.5
262      (let ((*x* 0))
263        (declare (special *x*))
264        (values *x* (setf *x* 1) *x*))
265      0 1 1)
266    
267    (deftest setf.6
268      (let ((*x* 0))
269        (declare (special *x*))
270        (setf *x* 1))
271      1)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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