From 66fbdb3d718c1ce0c46828551504cbe9874cd0fe Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Mon, 10 Nov 2003 00:25:13 +0000
Subject: [PATCH] Added printing during pruning, and gc in the loop for sbcl to
 try to evade space leakage.

---
 ansi-tests/random-int-form.lsp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/ansi-tests/random-int-form.lsp b/ansi-tests/random-int-form.lsp
index c5e8928b..1ce5beeb 100644
--- a/ansi-tests/random-int-form.lsp
+++ b/ansi-tests/random-int-form.lsp
@@ -94,7 +94,7 @@
   
   (loop for i from 1 to n
 	do (when (= (mod i 100) 0)
-	     ;; #+sbcl (sb-ext::gc)
+	     #+sbcl (sb-ext::gc)
 	     (prin1 i) (princ " ") (finish-output *standard-output*))
 	nconc (let ((result (test-random-integer-form size nvars)))
 		(when result
@@ -165,6 +165,7 @@
 		       (format nil "-~D" arg-index))
 	  (symbol-package fn-name)))		       
 
+(declaim (special *flet-names*))
 (defparameter *flet-names* nil)
 
 (defun make-random-integer ()
@@ -614,6 +615,7 @@
 		     (warning #'muffle-warning)
 		     (error #'(lambda (c)
 				(format t "Compilation failure~%")
+				(print form)
 				(return-from test-int-form
 				  (list (list :vars vars
 					      :form form
@@ -652,6 +654,7 @@
 	  (setq *int-form-vals* vals)
 	  (flet ((%eval-error
 		  (kind)
+		  (print form)
 		  (return
 		   (list (list :vars vars
 			       :vals vals
-- 
GitLab