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 "dodcustshopcartro" :data-toggle "validator"
  +    (:form :class "form-guestcustorder" :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: 				   (let ((prd-id (slot-value odt 'prd-id)))
  				     (search-prd-in-list prd-id prd-cache ))) lstshopcart)))
  	  (if (> lstcount 0)
  	      (with-standard-customer-page (:title "My Shopping Cart")
  	    				; Need to select the order details instance here instead of product instance. Also, ui-list-shop-cart should be based on order details instances. 
  					; This function is responsible for displaying the shopping cart. 
  
  					   (:div :class "row"
  						 (:div :class "col-xs-6" 
  						       (:h4 (cl-who:str (format nil "Shopping Cart (~A Items)" (length products)))))
  						 (:div :class "col-sm-6" :align "right"
  						       (cl-who:htm  (:a :class "btn btn-primary" :role "button" :href "/hhub/dodcustindex" "Back To Shopping"  ))))
  					   (:hr)
  
  					   (:div :class "rowfluid"
  						 (:div :class "col-xs-12" 
  						       (cl-who:str (ui-list-shopcart products lstshopcart))))
  		(:hr)
  	  (:div :class "row" 
  		(:div :class "col-xs-12" :align "right" 
  				 (:h2 (:span :class "label label-default" (cl-who:str (format nil "Total = Rs ~$" total))))))
  	  (:hr)
  	  (if (equal cust-type "STANDARD") 
  	      (cl-who:htm 
  	       (:div :class "row"
  		     (:div :class "col-xs-12" :align "right"
  			   (:a :class "btn btn-primary" :role "button" :href (format nil "dodcustorderaddpage?paymentmode=PRE") "Checkout"))))
  			 ;else
  	     
  	      (progn
  		(when (and singlevendor-p vendor-payment-api-key)
  		  (cl-who:htm
  		   (:div :class "row"
  			 (:div :class "col-xs-12" :align "right"
  			       (:a :class "btn btn-primary" :role "button" :href (format nil "dodcustorderaddpage?paymentmode=OPY") "Online Payment")))
  		   (:div :class "row"
  			 (:div :class "col-xs-12" :align "right" 
  			       (:h5 "OR")))))
  		(cl-who:htm (:div :class "row"
  		     (:div :class "col-xs-12" :align "right"
  			   (:a :class "btn btn-primary" :role "button" :href (format nil "dodcustorderaddpage?paymentmode=COD") "Cash On Delivery")))
  		     (:hr)))))
  	      ;else
  	      (with-standard-customer-page (:title "My Shopping Cart")
  		(:div :class "row"
  		      (:div :class "col-xs-12"
  			    (:h4 (cl-who:str (format nil "~A items in shopping cart" lstcount))) 
  			    (:a :class "btn btn-primary" :onclick "window.history.back();"  :role "button" :href "#"  (:span :class "glyphicon glyphicon-arrow-left")  )))))
  			    )))
  
     
  
  
  
negative.code: 	   (:div :class "row"
  		 (:div :class "col-xs-12 col-sm-12 col-md-6 col-lg-6"
  		       (:div :class "form-group" (:label :for "phone" "Phone" )
  			     (:input :class "form-control" :type "text" :class "form-control" :name "phone" :placeholder "Mobile Phone (+919999999999) " :tabindex "3" :maxlength "13"  :required T )))
  			      
  		 (:div :class "col-xs-12 col-sm-12 col-md-6 col-lg-6"
  		       (:div :class "form-group" (:label :for "email" "Email" )
  			     (:input :class "form-control" :type "email" :class "form-control" :name "email" :placeholder "Email" :data-error "That email address is invalid" :tabindex "4" ))))
  