kmx.io/cl-can

diff --git a/can.lisp b/can.lisp
index 07032a5..9e66aa8 100644
--- a/can.lisp
+++ b/can.lisp
@@ -54,8 +54,7 @@
 	(unify a action :admin)
 	(unify s subject :everyone))
       `(when (and ,@constants
-		  ,@(when specs
-		      `((facts:bound-p ,(sublis bindings specs)))))
+		  ,@(sublis bindings specs))
 	 ,p))))
 
 #+nil