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

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

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

revision 1.6 by pfdietz, Sun Jun 20 20:06:23 2004 UTC revision 1.7 by pfdietz, Mon Nov 29 13:23:38 2004 UTC
# Line 215  Line 215 
215    #(a b c d e)    #(a b c d e)
216    4)    4)
217    
218    (deftest pushnew.order.3
219      (let ((x '(a b c)))
220        (values
221         (pushnew (progn (setq x '(d e)) 'z) x)
222         x))
223      (z d e) (z d e))
224    
225  (deftest pushnew.error.1  (deftest pushnew.error.1
226    (signals-error    (signals-error
227     (let ((x '(a b)))     (let ((x '(a b)))

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

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