From 4de2973d9ba24e09448852b1988745b3e05d773e Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sun, 16 May 2004 13:02:09 +0000
Subject: [PATCH] Got rid of random-acl-test, tweaked to reduce verbosity on
 random-test

---
 ansi-tests/makefile | 41 ++++++++++++++---------------------------
 1 file changed, 14 insertions(+), 27 deletions(-)

diff --git a/ansi-tests/makefile b/ansi-tests/makefile
index be1dee4f..45ea1f0b 100644
--- a/ansi-tests/makefile
+++ b/ansi-tests/makefile
@@ -1,5 +1,4 @@
 # LISP=gcl
-# ACL=~/acl62_trial/alisp
 
 test:
 	@rm -rf scratch
@@ -13,32 +12,20 @@ test-unixport:
 	echo "(load \"doit.lsp\")" | ../unixport/saved_ansi_gcl | tee test.out
 
 random-test:
-	echo "(load \"gclload1.lsp\") \
-		(compile-and-load \"random-int-form.lsp\")  \
-		(in-package :cl-test) \
-		(let ((x (cl-test::test-random-integer-forms 1000 6 100))) \
-		  (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)) \
-		   (quit)))" | $(LISP)
-
-random-acl-test:
-	echo "(progn (setq *load-verbose* nil) (load \"gclload1.lsp\")) \
-	      (progn \
-		(compile-and-load \"random-int-form.lsp\")  \
-		(in-package :cl-test) \
-		(setq cl-test::*compile-unoptimized-form* nil) \
-		(let ((x (cl-test::test-random-integer-forms 1000 3 1000))) \
-		  (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)) \
-		   (exit)))" | $(ACL)
+	echo "(progn (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 1000 10 100 :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)
 
 clean:
 	rm -f test.out *.cls *.fasl *.o *.so *~ *.fn *.x86f *.fasl *.ufsl *.fas *.lib \#*\#; rm -rf scratch/; rm -f foo.txt foo.lsp file-that-was-renamed.txt tmp.dat temp.dat
-- 
GitLab