bug in INVOKE-SIGNAL-HANDLER

There is a misplaced parenthesis that causes the return value of
signal handlers to be ignored.

*** gcallback.lisp	28 Jun 2007 19:27:36 +0200	1.45
--- gcallback.lisp	13 Aug 2007 16:55:22 +0200	
***************
*** 90,98 ****
  	  (disconnect () :report "Disconnect and exit signal handler"
  	    (when (signal-handler-is-connected-p instance handler-id)
  	      (signal-handler-disconnect instance handler-id))
! 	    (values nil t))))
        (when (signal-handler-is-connected-p instance handler-id)
! 	(signal-handler-unblock instance handler-id))))
  
  (defun invoke-callback (callback-id return-type &rest args)
    (restart-case (apply (find-user-data callback-id) args)
--- 90,98 ----
  	  (disconnect () :report "Disconnect and exit signal handler"
  	    (when (signal-handler-is-connected-p instance handler-id)
  	      (signal-handler-disconnect instance handler-id))
! 	    (values nil t)))
        (when (signal-handler-is-connected-p instance handler-id)
! 	(signal-handler-unblock instance handler-id)))))
  
  (defun invoke-callback (callback-id return-type &rest args)
    (restart-case (apply (find-user-data callback-id) args)


-- 
walter pelissero
http://www.pelissero.de

-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems?  Stop.
Now Search log events and configuration files using AJAX and a browser.
Download your FREE copy of Splunk now >>  http://get.splunk.com/