load.lsp 1.9 KB
Newer Older
1 2 3
;;; Tests of conses
(compile-and-load "ANSI-TESTS:AUX;cons-aux.lsp")

4 5 6 7 8
(in-package #:cl-test)

(let ((*default-pathname-defaults*
       (make-pathname
        :directory (pathname-directory *load-pathname*))))
9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85
  (load "cons.lsp")
  (load "consp.lsp")
  (load "atom.lsp")
  (load "cxr.lsp")
  (load "rplaca.lsp")
  (load "rplacd.lsp")
  (load "copy-tree.lsp")
  (load "sublis.lsp")
  (load "nsublis.lsp")
  (load "subst.lsp")
  (load "subst-if.lsp")
  (load "subst-if-not.lsp")
  (load "nsubst.lsp")
  (load "nsubst-if.lsp")
  (load "nsubst-if-not.lsp")
  (load "tree-equal.lsp")
  (load "copy-list.lsp")
  (load "list.lsp")
  (load "list-length.lsp")
  (load "listp.lsp")
  (load "make-list.lsp")
  (load "push.lsp")
  (load "pop.lsp")
  (load "pushnew.lsp")
  (load "adjoin.lsp")
  (load "nth.lsp")
  (load "endp.lsp")
  (load "nconc.lsp")
  (load "append.lsp")
  (load "revappend.lsp")
  (load "nreconc.lsp")
  (load "butlast.lsp")
  (load "nbutlast.lsp")
  (load "last.lsp")
  (load "ldiff.lsp")
  (load "tailp.lsp")
  (load "nthcdr.lsp")
  (load "rest.lsp")
  (load "member.lsp")
  (load "member-if.lsp")
  (load "member-if-not.lsp")

  (load "mapc.lsp")
  (load "mapcar.lsp")
  (load "mapcan.lsp")
  (load "mapl.lsp")
  (load "maplist.lsp")
  (load "mapcon.lsp")

  (load "acons.lsp")
  (load "assoc.lsp")
  (load "assoc-if.lsp")
  (load "assoc-if-not.lsp")
  (load "rassoc.lsp")
  (load "rassoc-if.lsp")
  (load "rassoc-if-not.lsp")
  (load "copy-alist.lsp")
  (load "pairlis.lsp")

  (load "get-properties.lsp")
  (load "getf.lsp")
  (load "remf.lsp")

  (load "intersection.lsp")
  (load "nintersection.lsp")
  (load "union.lsp")
  (load "nunion.lsp")
  (load "set-difference.lsp")
  (load "nset-difference.lsp")
  (load "set-exclusive-or.lsp")
  (load "nset-exclusive-or.lsp")
  (load "subsetp.lsp")

;;; Misc. stuff that should be moved elsewhere
  (load "cons-test-01.lsp")
  (load "cons-test-03.lsp")
  (load "cons-test-05.lsp"))