2
;;;; Author: Paul Dietz
3
;;;; Created: Sat Apr 19 21:31:33 2003
4
;;;; Contains: Tests of COPY-TREE
8
(compile-and-load "cons-aux.lsp")
10
;; Try copy-tree on a tree containing elements of various kinds
12
(let* ((x (cons 'a (list
16
(make-array '(10) :initial-element
20
(check-cons-copy x y))
23
;; Try copy-tree on *universe*
25
(let* ((x (copy-list *universe*))
27
(check-cons-copy x y))
30
(deftest copy-tree.order.1
33
(copy-tree (progn (incf i) '(a b c)))
39
(deftest copy-tree.error.1
40
(signals-error (copy-tree) program-error)
43
(deftest copy-tree.error.2
44
(signals-error (copy-tree 'a 'b) program-error)