From f0e29a2e8023f3cf2ce86bf5e492dcf11309d0ef Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 23 Apr 2005 14:14:41 +0000
Subject: [PATCH] Some minor makefile updates

---
 ansi-tests/makefile | 28 +++++++++++++++++++++++-----
 1 file changed, 23 insertions(+), 5 deletions(-)

diff --git a/ansi-tests/makefile b/ansi-tests/makefile
index 08ed47af..a052612d 100644
--- a/ansi-tests/makefile
+++ b/ansi-tests/makefile
@@ -1,8 +1,13 @@
 # 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:
-- 
GitLab