anchor.diff:  
   
   (defun com-hhub-policy-create-order (&optional (params nil))
  - (< (parse-time-string (current-time-string)) (parse-time-string (com-hhub-attribute-customer-order-cutoff-time))))
  +  (let* ((company (cdr (assoc "company" params :test 'equal))))
  +    (cond  ;; Check whether the account is suspended. 
  +      ((com-hhub-attribute-company-issuspended company)
  +       (error 'hhub-abac-transaction-error :errstring (format nil "Account Name: ~A. This Account is Suspended." (slot-value company 'name))))
  +      ((< (parse-time-string (current-time-string)) (parse-time-string (com-hhub-attribute-customer-order-cutoff-time))) T))))
   
   
   (defun com-hhub-policy-edit-user (&optional (params nil))
  
positive.code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;;;;;;;;;;;; HERE WE DEFINE ALL THE POLICIES FOR HIGHRISEHUB ;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (defun com-hhub-policy-customer&vendor-create (&optional (params nil))
    (let* ((company (cdr (assoc "company" params :test 'equal)))
  
negative.code: 
  (defun com-hhub-policy-cad-login-action (&optional (params nil))
    :documentation "Company Administrator login action is open to all. This policy is dummy as the request is initiated by the Browser."
    (let ((rolename (cdr (assoc "rolename" params :test 'equal))))
      (equal rolename "COMPADMIN")))
  
  (defun com-hhub-policy-cad-logout (&optional (params nil) )
    :documentation "Company Administrator logout action is open to all. This policy is dummy as the request is initiated by the Browser."
  