anchor.diff:  ;; 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.28 2006-02-06 18:12:19 espen Exp $
  +;; $Id: gcallback.lisp,v 1.29 2006-02-08 19:56:25 espen Exp $
   
   (in-package "GLIB")
   
  
positive.code: 		until (eq arg '&rest)
  		collect arg))
  	 (rest (cadr (member '&rest args)))
  	 (next (make-symbol "ARGS")))
  
      `(progn
         (signal-override-class-closure ',name ',class 
  	#'(lambda (,object ,@args)
  	    (flet ((call-next-handler (&rest ,next)
  		     (let ((defaults (list* ,object ,@vars ,rest)))
  		       (%call-next-handler 
  			,n-params ',types ,next defaults ',return-type))))
  	      ,@body)))
         ',name)))
  
  
negative.code:   (args pointer)
    (return-value (or null gvalue)))
  
  
  (defun %call-next-handler (n-params types args return-type)
    (let ((params (allocate-memory (* n-params +gvalue-size+))))
      (loop 
       for arg in args
       for type in types
       for offset from 0 by +gvalue-size+
       do (gvalue-init (sap+ params offset) type arg))
  
      (unwind-protect
  