anchor.diff:  
   (with-encapsulated-conditions (warning error)
     ;; ^ DNW insofar as capturing the CERROR after interactive 'continue' :
  -  (warn "FROB") (cerror "FROB" (make-condition 'condition)))
  +  (warn "FROB")
  +  (cerror "FROB" (make-condition 'condition))
  +  12332
  +  )
   
   )
  
positive.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
  
negative.code:                ;; TBD - Wrapped/impl-specific binding for *DEBUGGER-HOOK*
                 ;; so as to capture all implementation-wrapped conditions
                 ;; under *BREAK-ON-SIGNALS*
                 (setq ,values (multiple-value-list (progn ,@forms)))
                 (values ,values
                         ,@(mapcar
                            #'(lambda (spec)
                                (destructuring-bind (typ . storage) spec
                                  (declare (ignore typ))
  