diff --git a/t/core.lisp b/t/core.lisp
index 346c0bf..d0d934f 100644
--- a/t/core.lisp
+++ b/t/core.lisp
@@ -11,6 +11,9 @@
 
 
 (defun foo (a b)
+  #+sbcl
+  (sb-ext:describe-compiler-policy )
+  
   (list a b 3))