/[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.3 by pfdietz, Sun Jan 30 00:28:45 2005 UTC revision 1.4 by pfdietz, Sat Apr 23 14:05:08 2005 UTC
# Line 6  Line 6 
6    
7  #+allegro (run-shell-command "rm -f *.fasl")  #+allegro (run-shell-command "rm -f *.fasl")
8  #+allegro (setq *enclose-printer-errors* nil)  #+allegro (setq *enclose-printer-errors* nil)
9  #+cmucl (run-program "rm -f *.x86f")  #+cmu (run-program "rm -f *.x86f")
10    
11  (load "gclload1.lsp")  (load "gclload1.lsp")
12  (load "gclload2.lsp")  (load "gclload2.lsp")
# Line 20  Line 20 
20    (rt:disable-note :assume-no-gray-streams))    (rt:disable-note :assume-no-gray-streams))
21    
22  (in-package :cl-test)  (in-package :cl-test)
23    
24    ;;; These two tests will misbehave if the tests are being
25    ;;; invoked from a file that is being loaded, so remove them
26    (when *load-pathname*
27      (mapc #'regression-test:rem-test '(load-pathname.1 load-truename.1)))
28    
29  (time (regression-test:do-tests))  (time (regression-test:do-tests))
30    
31  #+allegro (cl-user::exit)  #+allegro (cl-user::exit)
32  #+(or cmucl sbcl gcl armedbear) (cl-user::quit)  #+(or cmu sbcl gcl armedbear) (cl-user::quit)

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

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