2
;;;; Author: Paul Dietz
3
;;;; Created: Sun Apr 20 07:26:48 2003
4
;;;; Contains: Tests of ACONS
8
(compile-and-load "cons-aux.lsp")
11
(let* ((x (copy-tree '((c . d) (e . f))))
12
(xcopy (make-scaffold-copy x))
13
(result (acons 'a 'b x)))
15
(check-scaffold-copy x xcopy)
18
((a . b) (c . d) (e . f)))
29
(acons '((a b)) '(((c d) e) f) '((1 . 2)))
30
(( ((a b)) . (((c d) e) f)) (1 . 2)))
33
(acons "ancd" 1.143 nil)
38
((#\R . :foo) . :bar))
40
(deftest acons.order.1
43
(acons (progn (setf x (incf i)) 'a)
44
(progn (setf y (incf i)) 'b)
45
(progn (setf z (incf i)) '((c . d))))
50
(deftest acons.error.1
51
(signals-error (acons) program-error)
54
(deftest acons.error.2
55
(signals-error (acons 'a) program-error)
58
(deftest acons.error.3
59
(signals-error (acons 'a 'b) program-error)
62
(deftest acons.error.4
63
(signals-error (acons 'a 'b 'c 'd) program-error)