anchor.diff:    (deftype signal-flags () 
       '(flags :run-first :run-last :run-cleanup :no-recurse 
   	    :detailed :action :no-hooks))
  +
  +  (define-flags-type signal-match-type
  +    :id :detail :closure :func :data :unblocked)
   
     (defclass signal-query (struct)
       ((id :allocation :alien :type unsigned-int)
  
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: gcallback.lisp,v 1.35 2006-06-07 13:16:11 espen Exp $
  
  (in-package "GLIB")
  
  
negative.code: 		 (unwind-protect
  		     (let ((*signal-stop-emission* signal-stop-emission))
  		       (apply callback args))
  		   (when (signal-handler-is-connected-p gobject handler-id)
  		     (signal-handler-disconnect gobject handler-id))))))
  	  handler-id))))
  
  
  