anchor.diff:  
   
   (defun find-enum-value (value type)
  -  (second (assoc value (query-enum-values type nil) :test #'string=)))
  +  (second
  +   (or
  +    (assoc value (query-enum-values type nil) :test #'string=)
  +    (assoc value (query-enum-values type :nickname) :test #'string=))))
   
   (define-type-method parse-value ((type enum) value)
     (int-enum (find-enum-value value type) type))
  
positive.code:    (loop
      for signal in (user-data widget 'signals)
      do (destructuring-bind (name callback &key after object) signal
  	 (signal-connect widget name callback :after after :object (widget-find object toplevels))))
      (unset-user-data widget 'signals)
     (when (typep widget 'container)
       (connect-signals (container-children widget) toplevels))))
  
negative.code: 	(let ((parsed-value (handler-case (parse-value type (first body))
  			      (serious-condition (condition)
  			        (declare (ignore condition))
  				(warn "Ignoring property for ~A with unhandled type or invalid value: ~A" (class-name class)  pname)
  				(return-from parse-property)))))
  	  (list initarg parsed-value))))))
  
  