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)) |
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 |