Commit a424f6a385cffd9f0dabc46b2adc9e2a84a8ca78
2017-06-21T11:14:26
untabify
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
diff --git a/can.lisp b/can.lisp
index 23dccc0..2c67fd8 100644
--- a/can.lisp
+++ b/can.lisp
@@ -28,14 +28,14 @@
(defmacro define-permission ((subject permission action object) &body specs)
`(push '((,subject ,permission ,action ,object) . ,specs)
- *rules*))
+ *rules*))
#+nil
(define-permission (?user :can :edit ?module)
(?user :is-a 'user
- 'user.status :active)
+ 'user.status :active)
(?module :is-a 'module
- 'module.owner ?user))
+ 'module.owner ?user))
#+nil
(define-permission (:everyone :can :view :all))
#+nil
@@ -45,8 +45,8 @@
(destructuring-bind ((s p a o) &body specs) rule
(let (bindings constants)
(flet ((unify (r x wild)
- (if (facts:binding-p r)
- (push (cons r x) bindings)
+ (if (facts:binding-p r)
+ (push (cons r x) bindings)
(if (keywordp r)
(unless (eq r wild)
(push `(lessp:lessp-equal ,r ,x)
@@ -59,9 +59,9 @@
(if (cdr list)
`((,prefix ,@list))
list))))
- (unify o object :all)
- (unify a action :admin)
- (unify s subject :everyone)
+ (unify o object :all)
+ (unify a action :admin)
+ (unify s subject :everyone)
(car
(join 'when
`(,@(join 'and
@@ -77,8 +77,8 @@
(defun can (action &optional (object :all) (user :anonymous))
(if can-lambda
- (funcall can-lambda action object (or user :anonymous))
- (error "Please call CAN:COMPILE-RULES.")))
+ (funcall can-lambda action object (or user :anonymous))
+ (error "Please call CAN:COMPILE-RULES.")))
(defun can-rules-lambda ()
(let ((action (gensym "ACTION-"))
@@ -94,4 +94,4 @@
(defun compile-rules ()
(setq can-lambda
- (compile nil (can-rules-lambda))))))
+ (compile nil (can-rules-lambda))))))