/[gcl]/gcl/ansi-tests/compile-file.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/compile-file.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by pfdietz, Wed Apr 13 12:38:20 2005 UTC revision 1.10 by pfdietz, Wed Apr 13 13:45:38 2005 UTC
# Line 54  Line 54 
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)
# Line 163  Line 163 
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

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26