anchor.diff:  	      (cmpcountry (hunchentoot:parameter "cmpcountry"))
   	      (cmpzipcode (hunchentoot:parameter "cmpzipcode"))
   	      (cmpwebsite (hunchentoot:parameter "cmpwebsite"))
  +	      (cmp-type (hunchentoot:parameter "cmp-type"))
  +	      (subscription-plan (hunchentoot:parameter "subscription-plan"))
   	      (loginuser (get-login-userid)))
   
   	(unless(and  ( or (null cmpname) (zerop (length cmpname)))
  
positive.code: 			  (:input :class "form-control" :type "text" :maxlength "6" :value cmpzipcode :placeholder "Pincode" :name "cmpzipcode" ))
  		    (:div :class "form-group"
  			  (:input :class "form-control" :type "text" :maxlength "256" :value cmpwebsite :placeholder "Website" :name "cmpwebsite" ))
  		    (:div :class "form-group"
  			  (:button :class "btn btn-lg btn-primary btn-block" :type "submit" "Submit"))))))))
  
  
  
  
negative.code: 		     (setf (slot-value company 'state) cmpstate)
  		     (setf (slot-value company 'zipcode) cmpzipcode)
  		     (setf (slot-value company 'website) cmpwebsite)
  		     (setf (slot-value company 'cmp-type) cmp-type)
  		     (setf (slot-value company 'subscription-plan) subscription-plan)
  		     (update-company company))
  					;else
  	      (progn
  		(new-dod-company cmpname cmpaddress cmpcity cmpstate cmpcountry cmpzipcode cmpwebsite cmp-type subscription-plan loginuser loginuser))))
  		;; once a new company is created, create the Company Administrator
  		;; Once a new company is created, we will create a default Vendor with the same name, phone number as the company admin)))
  	      (hunchentoot:redirect  "/hhub/sadminhome"))))))
  
  
  
  