Clean up all use of the *-space-free-pointers.

[sbcl.git] / contrib / sb-introspect / test.lisp

diff --git a/contrib/sb-introspect/test.lisp b/contrib/sb-introspect/test.lisp
index 1b66b2b..cd100c5 100644 (file)
--- a/contrib/sb-introspect/test.lisp
+++ b/contrib/sb-introspect/test.lisp
@@ -1,4 +1,10 @@
-;; Do not alter this file unless you edit test-driver.lisp to match
+
+;;;
+;;; The order of the forms must not change, as the order is checked in
+;;; `test-driver.lisp'. Thus do not alter this file unless you edit
+;;; test-driver.lisp to match.
+;;;
+
 (declaim (optimize (debug 3)))
 (in-package :cl-user)
 
@@ -65,3 +71,6 @@
 (define-setf-expander s (a b)
   (format t "~a ~a~%" a b))
 
+(eval-when (:compile-toplevel)
+  (defun compile-time-too-fun ()
+    :foo))