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

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

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

revision 1.3 by pfdietz, Sun Jun 20 20:06:23 2004 UTC revision 1.4 by pfdietz, Mon Nov 29 13:23:38 2004 UTC
# Line 47  Line 47 
47    #(a b c d)    #(a b c d)
48    3)    3)
49    
50    (deftest push.order.3
51      (let ((x '(a b c)))
52        (values
53         (push (progn (setq x '(d e)) 'z) x)
54         x))
55      (z d e) (z d e))
56    
57  (def-macro-test push.error.1 (push x y))  (def-macro-test push.error.1 (push x y))
58    
59  ;;; Need to add push vs. various accessors  ;;; Need to add push vs. various accessors

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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