anchor.diff:    ;; FIXME
     ;;
     ;; TBD - Wrapping for *BREAK-ON-SIGNALS* and *DEBUGGER-HOOK*
  -  (with-symbols (register-condition c whence)
  +  (with-symbols (register-condition c whence restart)
       (let ((tabl (mapcar #'(lambda (typ)
                               (declare (type symbol typ))
                               (cons typ
  
positive.code:                                                   :adjustable t))))
                           tabl)
           (labels ((,register-condition (,c ,whence)
                      (vector-push-extend ,c ,whence)))
             (let (#+NIL (*break-on-signals* (quote (or ,@types)))
                         )
               (handler-bind ,(mapcar #'(lambda (spec)
                                          (destructuring-bind (typ . storage) spec
                                            `(,typ (lambda (,c)
                                                     (,register-condition ,c ,storage)
                                                     (continue ,c)))))
                                      tabl)
                 ;; TBD - Wrapped/impl-specific binding for *DEBUGGER-HOOK*
                 ;; so as to capture all implementation-wrapped conditions
  
negative.code: 
  ))
  
  #+FIXME
  (with-encapsulated-conditions (warning error)
    ;; FIXME - TBD (SBCL)
    ;;
    ;; DNW - CCL - TBD/FIXME - Errs but the error is not caught
    (funcall (lambda* () unbound-symbol (+ 1 3))))
  
  
  (with-encapsulated-conditions (warning error)
    ;; ^ DNW insofar as capturing the CERROR after interactive 'continue' :
  