Commit 986b189292ec921f7a66fa1cccc04b761cd77e1f

Thomas de Grivel 2015-03-20T15:44:53

Allow any code in permission rules.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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