0.9.3.58:
[sbcl.git] / contrib / sb-introspect / test.lisp
index 50e3161..0afafe5 100644 (file)
@@ -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)))