2
;;;; Author: Paul Dietz
3
;;;; Created: Sat Apr 19 22:05:34 2003
4
;;;; Contains: Tests of PUSH
8
(compile-and-load "cons-aux.lsp")
10
;;; See also places.lsp
24
(let ((x (copy-tree '(a))))
32
(let ((x (list nil)) (i 0) a b)
34
(push (progn (setf a (incf i)) 'z)
35
(car (progn (setf b (incf i)) x)))
41
(let ((x (vector nil nil nil nil))
42
(y (vector 'a 'b 'c 'd))
44
(push (aref y (incf i)) (aref x (incf i)))
50
(def-macro-test push.error.1 (push x y))
52
;;; Need to add push vs. various accessors