132 |
(notnot (load file)) |
(notnot (load file)) |
133 |
(let ((p1 (pathname (merge-pathnames file))) |
(let ((p1 (pathname (merge-pathnames file))) |
134 |
(p2 (funcall 'load-file-test-fun.1))) |
(p2 (funcall 'load-file-test-fun.1))) |
135 |
(or (equalpt p1 p2) |
(equalpt-or-report p1 p2)) |
|
(list p1 p2))) |
|
136 |
(let ((p1 (truename file)) |
(let ((p1 (truename file)) |
137 |
(p2 (funcall 'load-file-test-fun.2))) |
(p2 (funcall 'load-file-test-fun.2))) |
138 |
(or (equalpt p1 p2) |
(equalpt-or-report p1 p2)))) |
|
(list p1 p2))))) |
|
139 |
t t t) |
t t t) |
140 |
|
|
141 |
;;; Test that the load pathname/truename variables are bound |
;;; Test that the load pathname/truename variables are bound |
152 |
(values |
(values |
153 |
(let ((p1 (pathname (merge-pathnames target))) |
(let ((p1 (pathname (merge-pathnames target))) |
154 |
(p2 *load-test-var.1*)) |
(p2 *load-test-var.1*)) |
155 |
(or (equalpt p1 p2) |
(equalpt-or-report p1 p2)) |
|
(list p1 p2))) |
|
156 |
(let ((p1 (truename target)) |
(let ((p1 (truename target)) |
157 |
(p2 *load-test-var.2*)) |
(p2 *load-test-var.2*)) |
158 |
(or (equalpt p1 p2) |
(equalpt-or-report p1 p2)))) |
|
(list p1 p2))))) |
|
159 |
t t) |
t t) |
160 |
|
|
161 |
(deftest load.19 |
(deftest load.19 |