anchor.diff:  
   ))
   
  +#+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' :
  
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
    ;;
    ;; TBD - Wrapping for *BREAK-ON-SIGNALS* and *DEBUGGER-HOOK*
    (with-symbols (register-condition c whence restart)
      (let ((tabl (mapcar #'(lambda (typ)
                              (declare (type symbol typ))
                              (cons typ
  