X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-introspect%2Ftest.lisp;h=cd100c542fd09a6b1c5cd77e7b48ed0677f40358;hb=b2036b630923934234d66247f18acf7a6c1085ec;hp=1b66b2bec513a94c1666a4ff2232fce2aacedf60;hpb=31f072311935e32751508ecf824905c6b58a1d95;p=sbcl.git

diff --git a/contrib/sb-introspect/test.lisp b/contrib/sb-introspect/test.lisp
index 1b66b2b..cd100c5 100644
--- 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))