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

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

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

revision 1.12 by pfdietz, Sun Jan 30 00:28:45 2005 UTC revision 1.13 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" "*.sparcf" "*.ppcf"))  
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")
# Line 20  Line 27 
27    (rt:disable-note :assume-no-gray-streams))    (rt:disable-note :assume-no-gray-streams))
28    
29  (in-package :cl-test)  (in-package :cl-test)
30    
31    ;;; These two tests will misbehave if the tests are being
32    ;;; invoked from a file that is being loaded, so remove them
33    (when *load-pathname*
34      (mapc #'regression-test:rem-test '(load-pathname.1 load-truename.1)))
35    
36  (time (regression-test:do-tests))  (time (regression-test:do-tests))

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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