anchor.diff:       (:select :name (cfg::name option)
   	      :multiple "multiple"
   	      (loop for opt in (cfg::options type)
  -		 do (if (equalp value (cfg::name opt))
  -			(htm
  -			 (:option :value (cfg::name opt)
  -				  :selected "selected"
  -				  (str (cfg::title opt))))
  -			(htm
  -			 (:option :value (cfg::name opt)
  -				  (str (cfg::title opt))))))))))
  +		 do (htm
  +		     (:option :value (cfg::name opt)
  +			      :selected (if (equalp value (cfg::name opt))
  +					    "selected")
  +			      (str (cfg::title opt)))))))))
   
   ;; (defmethod render-schema-option-editor ((type cfg::maybe-configuration-schema-option-type)
   ;; 					option
  
positive.code: 				 option
  				 value
  				 stream)
    (if value
        (with-html-output (stream)
  	(:input :type "text"
  		:name (cfg::name option)
  		:value value))
        (with-html-output (stream)
  	(:input :type "text"))))
  
  (defmethod render-option-editor ((type cfg::one-of-configuration-schema-option-type)
  				 option
  
negative.code: 				 value
  				 stream)
    (with-html-output (stream)
      (htm
       (:input :name (cfg::name option)
  	     :type "checkbox"
  	     :checked (if value "checked")))))
  
  (defmethod render-option-editor ((type cfg::pathname-configuration-schema-option-type)
  				 option
  				 value
  				 stream)
    (with-html-output (stream)
      (htm
       (:input :type "text"
  	     :name (cfg::name option)
  	     :value (if value value)))))
  
  (defmethod render-option-editor ((type cfg::email-configuration-schema-option-type)
  				 option
  				 value
  				 stream)
    (with-html-output (stream)
      (htm
       (:input :type "text"
  	     :name (cfg::name option)
  	     :value (if value value)))))
  
  (defmethod render-option-editor ((type cfg::email-configuration-schema-option-type)
  				 option
  				 value
  				 stream)
    (with-html-output (stream)
      (htm
       (:input :type "text"
  	     :name (cfg::name option)
  	     :value (if value value)))))
  
  (defmethod render-option-editor ((type cfg::sexp-configuration-schema-option-type)
  				 option
  				 value
  				 stream)
    (with-html-output (stream)
      (:textarea :name (cfg::name option)
  	       (if value (str value)))))
  