54 |
(v4 (if expect-warnings failure-p t)) |
(v4 (if expect-warnings failure-p t)) |
55 |
(v5 (if expect-style-warnings warnings-p t)) |
(v5 (if expect-style-warnings warnings-p t)) |
56 |
(v6 (or (null output-truename) (pathnamep output-truename))) |
(v6 (or (null output-truename) (pathnamep output-truename))) |
57 |
(v7 (equalpt (namestring (truename target-pathname)) |
(v7 (equalpt-or-report (namestring (truename target-pathname)) |
58 |
(namestring output-truename))) |
(namestring output-truename))) |
59 |
(v8 (not (fboundp funname)))) |
(v8 (not (fboundp funname)))) |
60 |
(if (and v1 v2 v3 v4 v5 v6 v7 v8) t |
(if (and v1 v2 v3 v4 v5 v6 (eql v7 t) v8) t |
61 |
(list v1 v2 v3 v4 v5 v6 v7 v8))) |
(list v1 v2 v3 v4 v5 v6 v7 v8))) |
62 |
(progn |
(progn |
63 |
(load target-pathname) |
(load target-pathname) |
163 |
(compile-file file) |
(compile-file file) |
164 |
(load target-pathname) |
(load target-pathname) |
165 |
(values |
(values |
166 |
(equalpt (truename file) (funcall 'compile-file-test-fun.5)) |
(equalpt-or-report (truename file) (funcall 'compile-file-test-fun.5)) |
167 |
(equalpt (pathname (merge-pathnames file)) |
(equalpt-or-report (pathname (merge-pathnames file)) |
168 |
(funcall 'compile-file-test-fun.5a)))) |
(funcall 'compile-file-test-fun.5a)))) |
169 |
t t) |
t t) |
170 |
|
|
171 |
;;; Add tests of logical pathnames |
;;; Add tests of logical pathnames |