anchor.diff:  	     (:label :for ,name ,label)
   	     (:input :class "form-control"  :type "text" :id ,name :name ,name :placeholder ,placeholder :required ,brequired :value ,value :tabindex ,tabindex :data-error  ,validation-error-msg ,@other-attributes)
   	     (:div :class "help-block with-errors")))))
  +
  +
  +(eval-when (:compile-toplevel :load-toplevel :execute)     
  +  (defmacro with-html-input-hidden (name value &body other-attributes)
  +    `(cl-who:with-html-output (*standard-output* nil)
  +       (:div :class "form-group"
  +	     (:input :class "form-control"  :type "hidden" :id ,name :name ,name :value ,value ,@other-attributes)))))
  +	    
  +
  +(eval-when (:compile-toplevel :load-toplevel :execute)     
  +  (defmacro with-html-input-password (name label placeholder  value brequired validation-error-msg tabindex &body other-attributes)
  +    `(cl-who:with-html-output (*standard-output* nil)
  +       (:div :class "form-group"
  +	     (:label :for ,name ,label)
  +	     (:input :class "form-control"  :type "password" :id ,name :name ,name :placeholder ,placeholder :required ,brequired :value ,value :tabindex ,tabindex :data-error  ,validation-error-msg ,@other-attributes)
  +	     (:div :class "help-block with-errors")))))
  +
  +
   
   (eval-when (:compile-toplevel :load-toplevel :execute)     
     (defmacro with-html-input-textarea (name label placeholder brequired validation-error-msg tabindex rows &body other-attributes)
  
positive.code:   (defmacro with-standard-compadmin-page (title &body body)
      `(with-standard-page-template  ,title  with-compadmin-navigation-bar  ,@body)))
  
  
  
  (defun print-thread-info ()
  
negative.code: 		(:script :src "https://www.google.com/recaptcha/api.js")
  		(:script :src "https://cdnjs.cloudflare.com/ajax/libs/1000hz-bootstrap-validator/0.11.8/validator.min.js")
  		) ;; header completes here.
  	        (:body
  		 (:div :id "dod-main-container"
  		       (:a :id "scrollup" "" )
  		       (:div :id "hhub-error" :class "hhub-error-alert" :style "display:none;" )
  		       (:div :id "hhub-success" :class "hhub-success-alert" :style "display:none;" )
  		       (:div :id "busy-indicator")
  		       (:script :src "/js/hhubbusy.js")
  		       (if hunchentoot:*session* (,nav-func)) 
  					;(if (is-dod-cust-session-valid?) (with-customer-navigation-bar))
  		       (:div :class "container theme-showcase" :role "main" 
  			     (:div :class "sidebar-nav" 
  				   (:div :id "hhubmaincontent"  ,@body))))
  		 ;; rangeslider
  		      ;; bootstrap core javascript
  		 (:script :src "/js/bootstrap.js")
  		 (:script :src "/js/dod.js"))))))
  
  (eval-when (:compile-toplevel :load-toplevel :execute) 
    (defmacro with-standard-customer-page (title &body body)
      `(with-standard-page-template  ,title  with-customer-navigation-bar ,@body)))
  