X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-introspect%2Ftest.lisp;h=0afafe5b71d8ad0eb6c89bc64d3302714bac2d53;hb=b6094d5640a59f36d2f727df08b271c422aa9e1c;hp=50e31619bbe109d3a2c71d7ba205812931afa031;hpb=9908313f6f76672cfc28c48b21c9aa88daeb8d10;p=sbcl.git

diff --git a/contrib/sb-introspect/test.lisp b/contrib/sb-introspect/test.lisp
index 50e3161..0afafe5 100644
--- a/contrib/sb-introspect/test.lisp
+++ b/contrib/sb-introspect/test.lisp
@@ -10,5 +10,5 @@
 
 (defstruct three four five)
 
-
-	    
\ No newline at end of file
+(with-compilation-unit (:source-plist (list :test-inner "IN"))
+  (eval '(defun four () 4)))