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

restruct: use logical pathname for auxiliary modules

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