anchor.diff:  				       (:div :class "col-xs-4 col-sm-4 col-md-4 col-lg-4" :align "right" 
   					     (:span :class "badge" (cl-who:str (format nil " ~d " (length vendor-products)))))) 
   				   (:hr)
  -				   (cl-who:str (display-as-tiles vendor-products  'product-card-for-vendor))))))
  +				   (cl-who:str (display-as-tiles vendor-products  'product-card-for-vendor "product-box"))))))
      
   
   
  
positive.code: 	      (lowwalletbalance (< balance total)))
  	 (if order (display-order-header-for-vendor  order)) 
  	 (if odtlst (ui-list-vend-orderdetails header odtlst) "No order details")
  	 (cl-who:htm(:div :class "row" 
  		   (:div :class "col-md-12" :align "right" 
  			 (if (and lowwalletbalance (equal payment-mode "PRE")) 
  			     (cl-who:htm (:h2 (:span :class "label label-danger" (cl-who:str (format nil "Low wallet Balance = Rs ~$" balance))))))
  
negative.code:       (:div :class  "col-xs-12 col-sm-4 col-md-4 col-lg-4"  :align "right" 
  	    (:h2 (:span :class "label label-default" (cl-who:str (format nil "Total = Rs ~$" total))))))
        (:hr)
        (cl-who:str (display-as-tiles todaysorders 'vendor-order-card "order-box" ))))))
  
  
   
  