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

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 @@
(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)
......
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