anchor.diff:  	(paymentmode (hunchentoot:parameter "paymentmode")))
       (with-cust-session-check
         (with-standard-customer-page (:title "Add Customer Order")
  -				   (cl-who:str (cust-add-order-page cust-type paymentmode))))))
  +	(cl-who:str (cust-add-order-page cust-type paymentmode))))))
   
   ;;; This function has been separated from the controller function because it is independently testable.
   
   (defun cust-add-order-page(cust-type paymentmode)
  -					;We are using a hash table to store the function references to call them later.
  -					; This is a good practice to avoid IF condition.
  +  ;; We are using a hash table to store the function references to call them later.
  +  ;; This is a good practice to avoid IF condition.
     (let ((temp-ht (make-hash-table :test 'equal)))
       (setf (gethash "STANDARD"  temp-ht) (symbol-function 'standard-cust-add-order-page))
       (setf (gethash "GUEST" temp-ht) (symbol-function 'guest-cust-add-order-page))
  
positive.code: 
  (defun dod-controller-customer-profile ()
    (with-cust-session-check
      (with-standard-customer-page
        (cl-who:with-html-output (*standard-output* nil :prologue t :indent t)
  	(:h3 "Welcome " (cl-who:str (format nil "~a" (get-login-cust-name))))
  	(:hr)
  
negative.code: 	 (header (list "Vendor" "Phone" "Balance" "Recharge"))
  	 (wallets (get-cust-wallets customer company)))
      (with-cust-session-check
        (with-standard-customer-page "HighriseHub - Customer Wallets"
  	(cl-who:str (display-as-table header wallets 'cust-wallet-as-row))))))
  					;     (cl-who:str (display-as-tiles wallets 'wallet-card))))))
  
  