anchor.diff:  (with-encapsulated-conditions (warning error)
     ;; ^ DNW insofar as capturing the CERROR after interactive 'continue' :
     (warn "FROB")
  +  ;; FIXME - the following CERROR call may be evaluated twice, seen in:
  +  ;;  - CCL w/ SLIME inline eval
  +  ;;  - CCL w/ SLIME REPL
  +  ;;  - SBCL, similarly
     (cerror "FROB" (make-condition 'condition))
     12332
     )
  
positive.code:                ;; 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))
                                  `(coerce ,storage 'list)))
                          tabl))
                 )))))))
  
  #+NIL
  
negative.code: 
    ;; FIXME -
    ;; - Retain documentation from the original LAMBDA* definition
    ;; - Revise return form of WITH-ENCAPSULATED-CONDITIONS -> "MV-APPEND" [DONE]
    ;; - Note that the implementation may return effective duplicates of
    ;;   conditions produced in REPL evaluation of some calls to this
    ;;   redefined LAMBDA* - TBD, possible casual correlation due to
    ;;   inline compilation in the (COERCE LIST 'FUNCTION) call
  
    (with-symbols (%form %fn %functype)
      (let ((functype
             (unparse-ftype-function-declaration args body 'lambda* env)))
  