Commit 16e65dce authored by Daniel Kochmański's avatar Daniel Kochmański

restruct: use logical pathname for auxiliary modules

Signed-off-by: 's avatarDaniel Kochmański <daniel@turtleware.eu>
parent 18869291
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "bit-aux.lsp")
(deftest bit-and.1
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit))
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "bit-aux.lsp")
(deftest bit-andc1.1
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit))
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "bit-aux.lsp")
(deftest bit-andc2.1
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit))
......
......@@ -6,7 +6,7 @@
(in-package :cl-test)
(compile-and-load "bit-aux.lsp")
(deftest bit-eqv.1
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit))
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "bit-aux.lsp")
(deftest bit-ior.1
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit))
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "bit-aux.lsp")
(deftest bit-nand.1
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit))
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "bit-aux.lsp")
(deftest bit-nor.1
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit))
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "bit-aux.lsp")
(deftest bit-orc1.1
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit))
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "bit-aux.lsp")
(deftest bit-orc2.1
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit))
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "bit-aux.lsp")
(deftest bit-xor.1
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit))
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "array-aux.lsp")
(deftest make-array.1
(let ((a (make-array-with-checks 10)))
......
......@@ -6,7 +6,7 @@
(in-package :cl-test)
(eval-when (:load-toplevel :compile-toplevel :execute)
(compile-and-load "random-aux.lsp"))
(compile-and-load "ANSI-TESTS:AUX;random-aux.lsp"))
(defparameter *hash-table-test-iters* 1000)
......
......@@ -6,7 +6,7 @@
(in-package :cl-test)
(eval-when (:compile-toplevel :load-toplevel :execute)
(compile-and-load "random-aux.lsp"))
(compile-and-load "ANSI-TESTS:AUX;random-aux.lsp"))
;;; Binary search on reals
......
......@@ -5,7 +5,8 @@
(in-package :cl-test)
(eval-when (:compile-toplevel :load-toplevel :execute) (compile-and-load "random-aux.lsp"))
(eval-when (:compile-toplevel :load-toplevel :execute)
(compile-and-load "ANSI-TESTS:AUX;random-aux.lsp"))
(defmacro def-print-test (name form result &rest bindings)
`(deftest ,name
......
......@@ -6,7 +6,7 @@
(in-package :cl-test)
(eval-when (:compile-toplevel :load-toplevel :execute)
(compile-and-load "random-aux.lsp"))
(compile-and-load "ANSI-TESTS:AUX;random-aux.lsp"))
(defun my-string-compare (string1 string2 comparison
&key (start1 0) end1 (start2 0) end2 case
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "char-aux.lsp")
(deftest name-char.1
(name-char.1.body)
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest acons.1
(let* ((x (copy-tree '((c . d) (e . f))))
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest adjoin.1
(adjoin 'a nil)
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest append.1
(append)
......
......@@ -5,7 +5,7 @@
(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))))
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest assoc.1
(assoc nil nil)
......
......@@ -5,8 +5,6 @@
(in-package :cl-test)
; (compile-and-load "cons-aux.lsp")
(deftest atom.1
(loop for x in *universe*
unless (if (atom x) (not (consp x)) (consp x))
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest butlast.1
(let ((x (list 'a 'b 'c 'd 'e)))
......
......@@ -7,7 +7,7 @@
(declaim (optimize (safety 3)))
(compile-and-load "cons-aux.lsp")
;;
;; Test the subtype relationships between null, list, cons and atom
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; (typep <obj> 'list)
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(defparameter *cons-accessors*
'(first second third fourth fifth sixth seventh eighth ninth tenth
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
;;; Various easy tests of cons
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
;; Lists satisfy consp
(deftest consp-list
......
......@@ -5,7 +5,7 @@
(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)
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest copy-list.1
(check-copy-list '(a b c d))
......
......@@ -5,7 +5,7 @@
(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
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
;; Tests of car, cdr and compound forms
(deftest cons.23
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest endp-nil
(notnot-mv (endp nil))
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest get-properties.1
(get-properties nil nil)
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest getf.1
(getf nil 'a)
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest intersection.1
(intersection nil nil)
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest last.1
(last nil)
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest ldiff.1
(let* ((x (copy-tree '(a b c d e f)))
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest list-length-nil
(list-length nil)
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest list.1
(list 'a 'b 'c)
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest listp-nil
(notnot-mv (listp nil))
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest make-list-empty.1
(make-list 0)
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest mapc.1
(mapc #'list nil)
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest mapcan.1
(mapcan #'list nil)
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest mapcar.1
(mapcar #'1+ nil)
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest mapcon.1
(mapcon #'(lambda (x) (append '(a) x nil)) nil)
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest mapl.1
(mapl #'list nil)
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest maplist.1
(maplist #'list nil)
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest member-if-not.1
(member-if-not #'listp nil)
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest member-if.1
(member-if #'listp nil)
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest member.1
(let* ((x (copy-tree '(a b c d e f)))
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest nbutlast.1
(let ((x (list 'a 'b 'c 'd 'e)))
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest nconc.1
(nconc)
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest nintersection.1
(nintersection nil nil)
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest nreconc.1
(let* ((x (list 'a 'b 'c))
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest nset-difference.1
(nset-difference nil nil)
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest nset-exclusive-or.1
(nset-exclusive-or nil nil)
......
......@@ -5,7 +5,7 @@
(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)
......
......@@ -5,7 +5,7 @@
(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)))
......
......@@ -5,7 +5,7 @@
(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)))
......
......@@ -5,7 +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,7 +5,7 @@
(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)))
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
;;; Error tests
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest nunion.1
(nunion nil nil)
......
......@@ -5,7 +5,7 @@
(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
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest pop.1
(let ((x (copy-tree '(a b c))))
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
;;; See also places.lsp
......
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")
(deftest pushnew.1
(let ((x nil))
......
......@@ -5,7 +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,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "cons-aux.lsp")