diff --git a/ansi-tests/random-int-form.lsp b/ansi-tests/random-int-form.lsp index c5e8928b2441fc244c459b78e57f92bfad5dd549..1ce5beeb7dd3286cfbfd2c2f55f7b214abde8dc7 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