anchor.diff:        (: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 ))))))
  +      (cl-who:str (display-as-tiles todaysorders 'vendor-order-card "order-box" ))))))
   
   
    
  
positive.code: 				       (: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))))))
     
  
  
  
negative.code: 	 (lowwalletbalance (< balance total)))
      
          (cl-who:with-html-output (*standard-output* nil)
  	  (with-html-div-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))))))
  