Skip to content
Snippets Groups Projects
Commit f0e29a2e authored by pfdietz's avatar pfdietz
Browse files

Some minor makefile updates

parent 3f0e3dd5
No related branches found
No related tags found
No related merge requests found
# LISP=gcl # LISP=gcl
# LISP=sbcl --noinform
# LISP=~/sbcl/src/runtime/sbcl --core ~/sbcl/output/sbcl.core --noinform
# LISP=clisp -ansi -q
# LISP=abcl
# LISP=ecl
test: test:
@rm -rf scratch @rm -rf scratch
echo "(load \"doit.lsp\")" | $(LISP) | tee test.out cat doit.lsp | $(LISP) | tee test.out
test-compiled: test-compiled:
@rm -rf scratch @rm -rf scratch
...@@ -12,20 +17,33 @@ test-unixport: ...@@ -12,20 +17,33 @@ test-unixport:
echo "(load \"doit.lsp\")" | ../unixport/saved_ansi_gcl | tee test.out echo "(load \"doit.lsp\")" | ../unixport/saved_ansi_gcl | tee test.out
random-test: random-test:
echo "(progn (setq *load-verbose* nil) \ (echo "(progn #+gcl (setq compiler::*cc* \"gcc -c -DVOL=volatile -fsigned-char -pipe \") \
(setq *load-verbose* nil) \
(let* ((*standard-output* (make-broadcast-stream)) \ (let* ((*standard-output* (make-broadcast-stream)) \
(*error-output* *standard-output*)) \ (*error-output* *standard-output*)) \
(load \"gclload1.lsp\") \ (load \"gclload1.lsp\") \
(funcall (symbol-function 'compile-and-load) \"random-int-form.lsp\"))) \ (funcall (symbol-function 'compile-and-load) \"random-int-form.lsp\"))) \
(in-package :cl-test) \ (in-package :cl-test) \
(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))) \
(setq x (cl-test::prune-results x)) \ (setq x (cl-test::prune-results x)) \
(with-open-file (*standard-output* \"failures.lsp\" \ (with-open-file (*standard-output* \"failures.lsp\" \
:direction :output \ :direction :output \
:if-exists :append \ :if-exists :append \
:if-does-not-exist :create) \ :if-does-not-exist :create) \
(mapc #'print x)) \ (mapc #'print x))) \
#-allegro (quit) #+allegro (excl::exit)))" | $(LISP) #+allegro (excl::exit) \
; extra quits added to avoid being trapped in debugger in some lisps \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit)") | $(LISP)
rm -f gazonk* rm -f gazonk*
rt_1000_8: rt_1000_8:
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment