anchor.diff:  
   (defun signal-new (name itype flags return-type param-types)
     (when (zerop (signal-lookup name itype))
  +    (push (list name itype flags return-type param-types) *registered-signals*)
       (%signal-newv name itype flags return-type param-types)))
  +
  +(defun reinitialize-signals ()
  +  (mapc #'(lambda (args) (apply #'%signal-newv args)) *registered-signals*))
  +
  +(asdf:install-init-hook 'reinitialize-signals)
  +(asdf:install-init-hook 'reinitialize-signal-override-class-closures)
   
   ;;;; Convenient macros
   
  
positive.code: 
  ;;;; Signal registration
  
  (defbinding %signal-newv (name itype flags return-type param-types) 
      unsigned-int
    ((signal-name-to-string name) string)
  
negative.code: 	 for offset from 0 by +gvalue-size+
  	 do (gvalue-unset (pointer+ params offset)))
  	(deallocate-memory params)))))
  
  (defmacro define-signal-handler (name ((object class) &rest args) &body body)
    (let* ((info (signal-query (ensure-signal-id-from-type name class)))
  