anchor.diff:  						do (htm
   						    (:option :value (cfg::complete-symbol-name (cfg::name conf))
   							     :selected (if (find (cfg::name conf)
  -										 (cfg::parents configuration))
  +										 (cfg::parents configuration-copy))
   									   "selected")
   							     (str (cfg::title conf))))))))
   
   				 (jquery.ui-accordion stream
   						      (loop for section being the hash-values of
  -							   (cfg::sections (cfg::configuration-schema configuration))
  +							   (cfg::sections (cfg::configuration-schema configuration-copy))
   							 collect (cons (cfg::title section)
   								       (let ((section* section))
   									 (lambda (s)
   									   (declare (ignore s))
  -									   (edit-configuration-section configuration section* stream))))))
  +									   (edit-configuration-section configuration-copy section* stream))))))
   				 (:input :type "submit" :value "Save")
   				 (when save-as-new
   				   (htm
  
positive.code:   (new-configuration stream))
  
  (defun edit-configuration (configuration stream &key (save-as-new t))
    (let ((configuration (cfg::copy-configuration configuration)))
      (labels ((render-editor (errors stream)
  	       (with-html-output (stream)
  		 (with-form (action
  			     :on-submit (lambda ()
  					  (cfg::collecting-validation-errors (errors found-p)
  					      (cfg::validate-configuration configuration)
  					    (if found-p
  						(with-output-to-string (s)
  						  (with-main-page (s)
  						    (render-editor errors s)))
  						(progn
  						  (setf (gethash (cfg::name configuration) cfg::*configurations*)
  							configuration)
  						  (with-output-to-string (s)
  						    (with-main-page (s)
  						      (render-editor errors s))))))))
  		   (htm
  		    (:div :class "configuration-editor"
  			  (when errors
  
negative.code: 				     (:table
  				      (:tbody
  				       (:tr
  					(:td (:p "Name: "))
  					(:td
  					 (with-form-field (field :writer (lambda (val)
  									   (setf save-as-name val)))
  					   (htm
  					    (:input :type "text" :name field)))))
  				       (:tr (:td (:p "Title: "))
  					    (:td
  					     (with-form-field (field :writer (lambda (val)
  									       (setf save-as-title val)))
  					       (htm
  						(:input :type "text" :name field))))))))
  				    (:input :type "submit" :value "Save as new"))))))))))
        (render-editor nil stream))))
  
  