anchor.diff:  
   (defun guest-cust-add-order-page (&optional paymentmode)
     (cl-who:with-html-output-to-string (*standard-output* nil)
  -    (:form :class "form-order" :role "form" :id "hhubordcustdetails"  :method "POST" :action (if (equal paymentmode "OPY") "hhubcustonlinepayment" "dodcustshopcartro") :data-toggle "validator"
  +    (:form :class "form-order" :role "form" :id "hhubordcustdetails"  :method "POST" :action "dodcustshopcartro" :data-toggle "validator"
   	   (:div :class "row" 
   		 (:div :class "col-xs-12 col-sm-12 col-md-6 col-lg-6"
   		      (:h1 :class "text-center login-title"  "Customer - Add order ")
  
positive.code: 	   (:hr)
  	   (:tr (:td
  		 (:h2 (:span :class "label label-default" (cl-who:str (format nil "Total = Rs ~$" shopcart-total)))))))))
      (hunchentoot:log-message* :info (format nil "Sending email for order no - ~A. To ~A" order-id email))
      (send-order-mail email (format nil "HighriseHub order ~A" order-id) order-disp-str)))
  
  (defun send-order-sms-guest-customer (order-id phone)
  
negative.code: 	   (let ((func (gethash payment-mode temp-ht)))
  	     (if func (if (funcall (gethash payment-mode temp-ht) vendor-list wallet-list odts)	 (hunchentoot:redirect "/hhub/dodcustlowbalanceshopcarts"))))
  	   ;; If everything gets through, create order. 
  	   (let ((order-id (create-order-from-shopcart  odts products odate reqdate ship-date  shipaddress shopcart-total payment-mode comments cust custcomp temp-customer)))
  	     (setf (gethash "GUEST-EMAIL" temp-ht) (symbol-function 'send-order-email-guest-customer))
  	     (setf (gethash "GUEST-SMS" temp-ht) (symbol-function 'send-order-sms-guest-customer))
  	     (setf (gethash "STANDARD-EMAIL" temp-ht) (symbol-function 'send-order-email-standard-customer))
  