Commit f0e29a2e authored by pfdietz's avatar pfdietz

Some minor makefile updates

parent 3f0e3dd5
# 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:
@rm -rf scratch
echo "(load \"doit.lsp\")" | $(LISP) | tee test.out
cat doit.lsp | $(LISP) | tee test.out
test-compiled:
@rm -rf scratch
......@@ -12,20 +17,33 @@ test-unixport:
echo "(load \"doit.lsp\")" | ../unixport/saved_ansi_gcl | tee test.out
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)) \
(*error-output* *standard-output*)) \
(load \"gclload1.lsp\") \
(funcall (symbol-function 'compile-and-load) \"random-int-form.lsp\"))) \
(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)) \
(with-open-file (*standard-output* \"failures.lsp\" \
:direction :output \
:if-exists :append \
:if-does-not-exist :create) \
(mapc #'print x)) \
#-allegro (quit) #+allegro (excl::exit)))" | $(LISP)
(mapc #'print x))) \
#+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*
rt_1000_8:
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment