anchor.diff:  	       (invoke-restart-interactively restart))
   	     (abort)))))))
   
  +(defmacro with-debugger (&body body)
  +  `(let ((*debugger-hook* #'debugger)
  +	 #+sbcl (sb-ext:*invoke-debugger-hook* #'debugger))
  +     ,@body))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;   For testing   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
positive.code: 
  (defpackage "CLIM-DEBUGGER"
    (:use  "CL-USER" "CLIM" "CLIM-LISP")
    (:export :debugger))
  
  (in-package :clim-debugger)
  
  
negative.code: 
  (defun simple-break ()
    (with-simple-restart  (continue "Continue from interrupt.")
      (with-debugger
        (invoke-debugger 
         (make-condition 'simple-error 
                         :format-control "Debugger test")))))
  