break infinite recursion in GENERATE-SLOTD-TYPECHECK

[sbcl.git] / tests / compiler-test-util.lisp

diff --git a/tests/compiler-test-util.lisp b/tests/compiler-test-util.lisp
index 47ffa11..f0745d2 100644 (file)
--- a/tests/compiler-test-util.lisp
+++ b/tests/compiler-test-util.lisp
@@ -100,21 +100,6 @@
     (unwind-protect
          (progn
            (with-open-file (f lisp :direction :output)
-             (dolist (form toplevel-forms)
-               (prin1 form f)))
-           (multiple-value-bind (fasl warn fail) (compile-file lisp)
-             (when load
-               (load fasl))
-             (values warn fail)))
-      (ignore-errors (delete-file lisp))
-      (ignore-errors (delete-file fasl)))))
-
-(defun file-compile (toplevel-forms &key load)
-  (let* ((lisp (merge-pathnames "file-compile-tmp.lisp"))
-         (fasl (compile-file-pathname lisp)))
-    (unwind-protect
-         (progn
-           (with-open-file (f lisp :direction :output)
              (if (stringp toplevel-forms)
                  (write-line toplevel-forms f)
                  (dolist (form toplevel-forms)