anchor.diff:                      (unless (find ,c (the (array t (*)) ,whence) :test #'eq)
                         (vector-push-extend ,c ,whence))))
              (let (#+NIL (*break-on-signals* (quote (or ,@types)))
  +                       ,values
                          )
                (handler-bind ,(mapcar #'(lambda (spec)
                                           (destructuring-bind (typ . storage) spec
  
positive.code:                ;; TBD - Wrapped/impl-specific binding for *DEBUGGER-HOOK*
                 ;; so as to capture all implementation-wrapped conditions
                 ;; under *BREAK-ON-SIGNALS*
                 (progn ,@forms)
                 (values ,@(mapcar
                            #'(lambda (spec)
                                (destructuring-bind (typ . storage) spec
                                  (declare (ignore typ))
  
negative.code: 
  (with-encapsulated-conditions (warning error)
    ;; ^ DNW insofar as capturing the CERROR after interactive 'continue' :
    (warn "FROB")
    (cerror "FROB" (make-condition 'condition))
    12332
    )
  
  )
  