anchor.diff:  	(let ((parsed-value (handler-case (parse-value type (first body))
   			      (serious-condition (condition)
   			        (declare (ignore condition))
  -				(warn "Ignoring property with unhandled type or invalid value: ~A" pname)
  +				(warn "Ignoring property for ~A with unhandled type or invalid value: ~A" (class-name class)  pname)
   				(return-from parse-property)))))
   	  (list initarg parsed-value))))))
   
  
positive.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: glade-xml.lisp,v 1.2 2006-09-27 08:44:44 espen Exp $
  
  
  (in-package "GLADE-XML")
  
negative.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 (if (eq object t)
  		      widget
  		    (widget-find object toplevels)))))
      (unset-user-data widget 'signals)
     (when (typep widget 'container)
       (connect-signals (container-children widget) toplevels))))
  