Commit d6031558 authored by pfdietz's avatar pfdietz

Move cons-related aux functions from ansi-aux.lsp to cons-aux.lsp. Update the...

Move cons-related aux functions from ansi-aux.lsp to cons-aux.lsp.  Update the cons-related files to compile-and-load cons-aux.lsp, if necessary.
parent 6c0dd267
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest acons.1
(let* ((x (copy-tree '((c . d) (e . f))))
(xcopy (make-scaffold-copy x))
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest adjoin.1
(adjoin 'a nil)
(a))
......
This diff is collapsed.
......@@ -5,6 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest append.1
(append)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest assoc-if-not.1
(let* ((x (copy-list '((1 . a) (3 . b) (6 . c) (7 . d))))
(xcopy (make-scaffold-copy x))
......
......@@ -5,6 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest assoc-if.1
(let* ((x (copy-list '((1 . a) (3 . b) (6 . c) (7 . d))))
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest assoc.1
(assoc nil nil)
nil)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
; (compile-and-load "cons-aux.lsp")
(deftest atom.order.1
(let ((i 0))
(values (atom (progn (incf i) '(a b))) i))
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest butlast.1
(let ((x (list 'a 'b 'c 'd 'e)))
(let ((xcopy (make-scaffold-copy x)))
......
This diff is collapsed.
......@@ -7,6 +7,8 @@
(declaim (optimize (safety 3)))
(compile-and-load "cons-aux.lsp")
;;
;; Test the subtype relationships between null, list, cons and atom
;;
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; (typep <obj> 'list)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(defparameter *cons-accessors*
'(first second third fourth fifth sixth seventh eighth ninth tenth
car cdr caar cadr cdar cddr
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
;;; Various easy tests of cons
(deftest cons-of-symbols
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
;; Lists satisfy consp
(deftest consp-list
(notnot-mv (consp '(a)))
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest copy-alist.1
(let* ((x (copy-tree '((a . b) (c . d) nil (e f) ((x) ((y z)) w)
("foo" . "bar") (#\w . 1.234)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest copy-list.1
(check-copy-list '(a b c d))
(a b c d))
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
;; Try copy-tree on a tree containing elements of various kinds
(deftest copy-tree.1
(let* ((x (cons 'a (list
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
;; Tests of car, cdr and compound forms
(deftest cons.23
(car '(a))
......
......@@ -5,8 +5,7 @@
(in-package :cl-test)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; endp
(compile-and-load "cons-aux.lsp")
(deftest endp-nil
(notnot-mv (endp nil))
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest get-properties.1
(get-properties nil nil)
nil nil nil)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest getf.1
(getf nil 'a)
nil)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest intersection.1
(intersection nil nil)
nil)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest last.1
(last nil)
nil)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest ldiff.1
(let* ((x (copy-tree '(a b c d e f)))
(xcopy (make-scaffold-copy x)))
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest list-length-nil
(list-length nil)
0)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest list.1
(list 'a 'b 'c)
(a b c))
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest listp-nil
(notnot-mv (listp nil))
t)
......
;;; Tests of conses
(compile-and-load "cons-aux.lsp")
;;; (compile-and-load "cons-aux.lsp")
(load "cons.lsp")
(load "consp.lsp")
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest make-list-empty.1
(make-list 0)
nil)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest mapc.1
(mapc #'list nil)
nil)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest mapcan.1
(mapcan #'list nil)
nil)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest mapcar.1
(mapcar #'1+ nil)
nil)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest mapcon.1
(mapcon #'(lambda (x) (append '(a) x nil)) nil)
nil)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest mapl.1
(mapl #'list nil)
nil)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest maplist.1
(maplist #'list nil)
nil)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest member-if-not.1
(member-if-not #'listp nil)
nil)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest member-if.1
(member-if #'listp nil)
nil)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest member.1
(let* ((x (copy-tree '(a b c d e f)))
(xcopy (make-scaffold-copy x))
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest nbutlast.1
(let ((x (list 'a 'b 'c 'd 'e)))
(let ((y (cdr x))
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest nconc.1
(nconc)
nil)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest nintersection.1
(nintersection nil nil)
nil)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest nreconc.1
(let* ((x (list 'a 'b 'c))
(y (copy-tree '(d e f)))
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest nset-difference.1
(nset-difference nil nil)
nil)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest nset-exclusive-or.1
(nset-exclusive-or nil nil)
nil)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest nsublis.1
(check-nsublis '((a b) g (d e 10 g h) 15 . g)
'((e . e2) (g . 17)))
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest nsubst-if-not.1
(check-nsubst-if-not '(x) 'consp '(1 (1 2) (1 2 3) (1 2 3 4)))
((x)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest nsubst-if.1
(check-nsubst-if 'a #'consp '((100 1) (2 3) (4 3 2 1) (a b c)))
a)
......
......@@ -5,6 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(defvar *nsubst-tree-1* '(10 (30 20 10) (20 10) (10 20 30 40)))
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest nth.1
(nth-1-body (loop for i from 1 to 2000 collect (* 4 i)))
0)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
;;; Error tests
(deftest nthcdr.error.1
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest nunion.1
(nunion nil nil)
nil)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
;; Pairlis has two legal behaviors: the pairs
;; can be prepended in the same order, or in the
;; reverse order, that they appear in the first
......
......@@ -3,9 +3,10 @@
;;;; Created: Sat Apr 19 22:27:18 2003
;;;; Contains: Tests of POP
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest pop.1
(let ((x (copy-tree '(a b c))))
(let ((y (pop x)))
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
;;; See also places.lsp
(deftest push.1
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest pushnew.1
(let ((x nil))
(let ((y (pushnew 'a x)))
......
......@@ -5,6 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest rassoc-if-not.1
(let* ((x (rev-assoc-list '((1 . a) (3 . b) (6 . c) (7 . d))))
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest rassoc-if.1
(let* ((x (rev-assoc-list '((1 . a) (3 . b) (6 . c) (7 . d))))
(xcopy (make-scaffold-copy x))
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest remf.1
(let ((x nil))
(values (remf x 'a) x))
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest rest.1
(rest (list 'a 'b 'c))
(b c))
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest revappend.1
(let* ((x (list 'a 'b 'c))
(y (list 'd 'e 'f))
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest rplaca.1
(let ((x (cons 'a 'b)))
(let ((y x))
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest rplacd.1
(let ((x (cons 'a 'b)))
(let ((y x))
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest set-difference.1
(set-difference nil nil)
nil)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest set-exclusive-or.1
(set-exclusive-or nil nil)
nil)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest sublis.1
(check-sublis '((a b) g (d e 10 g h) 15 . g)
'((e . e2) (g . 17)))
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(defvar cons-test-24-var '(78 "z" (8 9)))
(deftest subsetp.1
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest subst-if-not.1
(check-subst-if-not '(x) 'consp '(1 (1 2) (1 2 3) (1 2 3 4)))
((x)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest subst-if.1
(check-subst-if 'a #'consp '((100 1) (2 3) (4 3 2 1) (a b c)))
a)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(defvar *subst-tree-1* '(10 (30 20 10) (20 10) (10 20 30 40)))
(deftest subst.1
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest tailp.1
(let ((x (copy-tree '(a b c d e . f))))
(and
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest tree-equal.1
(notnot-mv (tree-equal 'a 'a))
t)
......
......@@ -5,6 +5,8 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest union.1
(union nil nil)
nil)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment