/[gcl]/gcl/ansi-tests/makefile
ViewVC logotype

Diff of /gcl/ansi-tests/makefile

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

revision 1.21 by mjthomas, Sun Aug 29 00:34:22 2004 UTC revision 1.22 by pfdietz, Sat Apr 23 14:14:41 2005 UTC
# Line 1  Line 1 
1  # LISP=gcl  # LISP=gcl
2    # LISP=sbcl --noinform
3    # LISP=~/sbcl/src/runtime/sbcl --core ~/sbcl/output/sbcl.core --noinform
4    # LISP=clisp -ansi -q
5    # LISP=abcl
6    # LISP=ecl
7    
8  test:  test:
9          @rm -rf scratch          @rm -rf scratch
10          echo "(load \"doit.lsp\")" | $(LISP) | tee test.out          cat doit.lsp | $(LISP) | tee test.out
11    
12  test-compiled:  test-compiled:
13          @rm -rf scratch          @rm -rf scratch
# Line 12  test-unixport: Line 17  test-unixport:
17          echo "(load \"doit.lsp\")" | ../unixport/saved_ansi_gcl | tee test.out          echo "(load \"doit.lsp\")" | ../unixport/saved_ansi_gcl | tee test.out
18    
19  random-test:  random-test:
20          echo "(progn (setq *load-verbose* nil) \          (echo "(progn #+gcl (setq compiler::*cc* \"gcc -c -DVOL=volatile -fsigned-char -pipe \") \
21                    (setq *load-verbose* nil) \
22                  (let* ((*standard-output* (make-broadcast-stream)) \                  (let* ((*standard-output* (make-broadcast-stream)) \
23                       (*error-output* *standard-output*)) \                       (*error-output* *standard-output*)) \
24                  (load \"gclload1.lsp\") \                  (load \"gclload1.lsp\") \
25                  (funcall (symbol-function 'compile-and-load) \"random-int-form.lsp\")))  \                  (funcall (symbol-function 'compile-and-load) \"random-int-form.lsp\")))  \
26                (in-package :cl-test) \                (in-package :cl-test) \
27                (let ((x (cl-test::test-random-integer-forms 100 10 1000 :random-size t :random-nvars t))) \                (let ((x (cl-test::test-random-integer-forms 1000 3 1000 :random-size t :random-nvars t))) \
28                  (setq x (cl-test::prune-results x)) \                  (setq x (cl-test::prune-results x)) \
29                  (with-open-file (*standard-output* \"failures.lsp\" \                  (with-open-file (*standard-output* \"failures.lsp\" \
30                     :direction :output \                     :direction :output \
31                     :if-exists :append \                     :if-exists :append \
32                     :if-does-not-exist :create) \                     :if-does-not-exist :create) \
33                    (mapc #'print x)) \                    (mapc #'print x))) \
34                  #-allegro (quit) #+allegro (excl::exit)))" | $(LISP)                  #+allegro (excl::exit) \
35                    ; extra quits added to avoid being trapped in debugger in some lisps \
36                    (cl-user::quit) \
37                    (cl-user::quit) \
38                    (cl-user::quit) \
39                    (cl-user::quit) \
40                    (cl-user::quit) \
41                    (cl-user::quit) \
42                    (cl-user::quit) \
43                    (cl-user::quit) \
44                    (cl-user::quit) \
45                    (cl-user::quit) \
46                    (cl-user::quit)") | $(LISP)
47          rm -f gazonk*          rm -f gazonk*
48    
49  rt_1000_8:  rt_1000_8:

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

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