anchor.diff:      (when (and   
   	   (equal  login-company-name company-name)
   	   login-user 
  -	   (null (hunchentoot:session-value :login-username)) ;; User should not be logged-in in the first place.
  -	      )  (progn (add-login-user username  login-user)
  -				      (setf *current-user-session* (hunchentoot:start-session))
  -				      (setf (hunchentoot:session-value :login-username) username)
  -				      (setf (hunchentoot:session-value :login-userid) login-userid)
  -				      (setf (hunchentoot:session-value :login-attribute-cart) login-attribute-cart)
  -				      (setf (hunchentoot:session-value :login-tenant-id) login-tenant-id)
  -				      (setf (hunchentoot:session-value :login-company-name) company-name)
  -				      (setf (hunchentoot:session-value :login-company) login-company))
  -		 
  -       	 )))
  -
  -
  -  
  +	   (null (hunchentoot:session-value :login-username))) ;; User should not be logged-in in the first place.
  +      (progn (add-login-user username  login-user)
  +	     (setf *current-user-session* (hunchentoot:start-session))
  +	     (setf (hunchentoot:session-value :login-username) username)
  +	     (setf (hunchentoot:session-value :login-userid) login-userid)
  +	     (setf (hunchentoot:session-value :login-attribute-cart) login-attribute-cart)
  +	     (setf (hunchentoot:session-value :login-tenant-id) login-tenant-id)
  +	     (setf (hunchentoot:session-value :login-company-name) company-name)
  +	     (setf (hunchentoot:session-value :login-company) login-company)))))  
     
   
   
  
positive.code: 
  (setq *logged-in-users* (make-hash-table :test 'equal))
  
  (defun dod-controller-list-busobjs () 
  :documentation "List all the business objects"
  (with-opr-session-check 
    (let ((busobjs (select-bus-object-by-company (get-login-company))))
      (with-standard-admin-page (:title "Business Objects ...")
        (:div :class "row"
  	    (:div :class "col-md-12" (:h4 "Business Objects")))
        (str (display-as-table (list "Name")  busobjs 'busobj-card))
        (:h4 "Note: To add new business objects to the system, follow these steps.")
        (:h4 "In the Lisp REPL call the function, (create-bus-object)")))))
  
  
  
  
negative.code: :documentation "List all the business objects"
  (with-opr-session-check 
    (let ((abacsubjects (select-abac-subject-by-company (get-login-company))))
      (with-standard-admin-page (:title "Business Personas ...")
  			      (IAM-security-page-header)
        (:div :class "row"
  	    (:div :class "col-md-12" (:h4 "Business Personas")))
        (str (display-as-table (list "Name")  abacsubjects 'busobj-card))
        (:h4 "Note: To add new business objects to the system, follow these steps.")
        (:h4 "In the Lisp REPL call the function, (create-abac-subject)")))))
  