* (handler-bind ((error (lambda (c)
                        (declare (ignore c))
                        (error "another"))))
  (restart-case
      (error "one")
    (xxx ())))

debugger invoked on a SIMPLE-ERROR in thread
#<THREAD "main thread" RUNNING {1004AB81F3}>:
  another

Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [ABORT] Exit debugger, returning to top level.

((LAMBDA ()))
   source: (RESTART-CASE (ERROR "one")
             (XXX NIL))
0] 
* (handler-bind ((error (lambda (c)
                        (declare (ignore c))
                        (error "another"))))
  (restart-case
      (progn
        (error "one")
        1)
    (xxx ())))

debugger invoked on a SIMPLE-ERROR in thread
#<THREAD "main thread" RUNNING {1004AB81F3}>:
  another

Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [XXX  ] XXX
  1: [ABORT] Exit debugger, returning to top level.

((FLET "H0") #<unused argument>)
   source: (ERROR "another")
0]