/[gcl]/gcl/ansi-tests/doit.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/doit.lsp

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

revision 1.4 by pfdietz, Sat Apr 23 14:05:08 2005 UTC revision 1.5 by pfdietz, Sun Apr 24 18:09:42 2005 UTC
# Line 4  Line 4 
4  ;;; with arbitrary legal garbage.  ;;; with arbitrary legal garbage.
5  ;; (pushnew :ansi-tests-strict-initial-element *features*)  ;; (pushnew :ansi-tests-strict-initial-element *features*)
6    
 #+allegro (run-shell-command "rm -f *.fasl")  
7  #+allegro (setq *enclose-printer-errors* nil)  #+allegro (setq *enclose-printer-errors* nil)
8  #+cmu (run-program "rm -f *.x86f")  
9    ;;; Remove compiled files
10    (let* ((fn (compile-file-pathname "doit.lsp"))
11           (type (pathname-type fn))
12           (dir-pathname (make-pathname :name :wild :type type))
13           (files (directory dir-pathname)))
14      (assert type)
15      (assert (not (string-equal type "lsp")))
16      (mapc #'delete-file files))
17    
18  (load "gclload1.lsp")  (load "gclload1.lsp")
19  (load "gclload2.lsp")  (load "gclload2.lsp")

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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