/[gcl]/gcl/ansi-tests/cons-test-07.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-test-07.lsp

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

revision 1.10 by pfdietz, Fri Mar 7 05:16:40 2003 UTC revision 1.11 by pfdietz, Tue Mar 25 02:23:12 2003 UTC
# Line 18  Line 18 
18    (nconc (copy-tree '(a b c d e f)))    (nconc (copy-tree '(a b c d e f)))
19    (a b c d e f))    (a b c d e f))
20    
21  (deftest nconc.3  ;;; (deftest nconc.3
22    (nconc 1)  ;;;  (nconc 1)
23    1)  ;;;  1)
24    
25  (deftest nconc.4  (deftest nconc.4
26    (let ((x (list 'a 'b 'c))    (let ((x (list 'a 'b 'c))
# Line 72  Line 72 
72  (deftest nconc.order.2  (deftest nconc.order.2
73    (let ((i 0))    (let ((i 0))
74      (values      (values
75       (nconc (incf i))       (nconc (list 'a) (incf i))
76       i))       i))
77    1 1)          (a . 1) 1)
78    
79  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
80  ;;; append  ;;; append

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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