/[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.10 by pfdietz, Wed Apr 13 13:45:38 2005 UTC revision 1.11 by pfdietz, Wed Jun 8 01:01:46 2005 UTC
# Line 60  Line 60 
60             (if (and v1 v2 v3 v4 v5 v6 (eql v7 t) 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 output-truename)
64             (funcall funname)))))))             (funcall funname)))))))
65    
66  (deftest compile-file.1  (deftest compile-file.1
# Line 141  Line 141 
141    (let ((s (open "foo.fasl" :direction :output :if-exists :supersede    (let ((s (open "foo.fasl" :direction :output :if-exists :supersede
142                   :if-does-not-exist :create)))                   :if-does-not-exist :create)))
143      (close s)      (close s)
144      (compile-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1      (compile-file-test "compile-file-test-file.lsp"
145                           'compile-file-test-fun.1
146                         :output-file s))                         :output-file s))
147    t nil)    t nil)
148    

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

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