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

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

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

revision 1.1 by pfdietz, Sun Apr 20 13:17:45 2003 UTC revision 1.2 by pfdietz, Wed May 28 13:19:05 2003 UTC
# Line 40  Line 40 
40    (append-6-body)    (append-6-body)
41    0)    0)
42    
43    ;;; Test suggested by Peter Graves
44    (deftest append.7
45      (let ((x (list 'a 'b 'c 'd)))
46        (eq (append x nil) x))
47      nil)
48    
49    ;;; Order of evaluation tests
50    
51  (deftest append.order.1  (deftest append.order.1
52    (let ((i 0) x y z)    (let ((i 0) x y z)
53      (values      (values

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