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