anchor.diff:    (let* ((pincode (hunchentoot:parameter "pincode"))
   	 (params nil)
   	 (addressadapter (make-instance 'Address-Adapter))
  -	 (presenter (make-instance 'Address-Presenter)))
  +	 (presenter (make-instance 'Address-Presenter))
  +	 (jsonview (make-instance 'JSONView)))
       
       (setf params (acons "pincode" pincode params))
  -    (renderJSON presenter (createviewmodel presenter (processrequest addressadapter params)))))
  +    (render jsonview (createviewmodel presenter (processrequest addressadapter params)))))
  +
  +
  +(defmethod Render ((view JSONView) (viewmodel AddressViewModel))
  +  (let* ((templist '())
  +	 (appendlist '())
  +	 (mylist '())
  +	 (locality (slot-value viewmodel 'locality))
  +	 (city (slot-value viewmodel 'city))
  +	 (state (slot-value viewmodel 'state)))
  +
  +    (if (and 
  +	     (not (null locality))
  +	     (not (null city))
  +	     (not (null state)))
  +      (progn
  +	(setf templist (acons "locality" (format nil "~A" locality) templist))
  +	(setf templist (acons "city" (format nil "~A" city) templist))
  +	(setf templist (acons "state" (format nil "~A" state) templist))
  +	(setf appendlist (append appendlist (list templist)))
  +	(setf mylist (acons "result" appendlist mylist))
  +	(setf mylist (acons "success" 1 mylist))
  +	(let ((jsondata (json:encode-json-to-string mylist)))
  +	  (setf (slot-value view 'jsondata) jsondata)
  +	  ;; return jsondata
  +	  jsondata))
  +					;else 
  +      (progn
  +	(setf mylist (acons "success" 0 mylist))
  + 	(let ((jsondata (json:encode-json-to-string mylist)))
  +	  (setf (slot-value view 'jsondata) jsondata)
  +	  jsondata)))))
  +
   
   
   (defun modal.customer-update-details (customer)
  
positive.code:       (:div :class "row"
  	    (:div :class "col-xs-12"
  		  (cond
  		    ((and (equal payment-mode "OPY") (or (equal company-type "BASIC") (equal company-type "PROFESSIONAL"))) (cl-who:str (make-payment-request-html (format nil "~A" shopcart-total)   (format nil "~A" wallet-id) "live" order-cxt)))
  		    ((and (equal payment-mode "OPY") (equal company-type "TRIAL")) (cl-who:str (make-payment-request-html (format nil "~A" shopcart-total)   (format nil "~A" wallet-id) "test" order-cxt)))
  		    (T (with-html-form "placeorderform" "dodmyorderaddaction"  
  			       (:span :class "input-group-btn" (:button :class "btn btn-lg btn-primary" :type "submit" "Place Order" )))))))      
        
        (:hr)
        (:div :class "row"
  
negative.code:         ; Handle this condition
     
        (clsql:sql-database-data-error (condition)
  	  (if (equal (clsql:sql-error-error-id condition) 2013 ) (progn
  								   (stop-das) 
  								   (start-das)
  ;								   (clsql:reconnect :database *dod-db-instance*)
  