anchor.diff:          "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.LIST")
     (:export
      ;; 3 - EVALUATION AND COMPILATION
  -   "WITH-GENSYMS" "WSIOSBP"
  +   "WITH-GENSYMS" "WSIOSBP" "PROGN-CONCAT"
      "CURRY" "COMPOSE" "COMPOSE-AND-CALL"
      "DEFINE-IF-UNDEFINED"  "INCLUDE" "FUNCTIONAL-PIPE"
      "FIRST-ARG" "SECOND-ARG" "THIRD-ARG" "FOURTH-ARG" "FIFTH-ARG"
  
positive.code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  
  #-:with-debug-gensym
  (defmacro with-gensyms (syms &body body)
    "
  
negative.code:   `(let ,(mapcar
            (lambda (s) `(,s (intern (string (gensym ,(string s)))
                                     "COM.INFORMATIMAGO.GENSYMS"))) syms) ,@body))
  
  
  (defun progn-concat (forms)
    "
  DO:       Wraps the forms in a PROGN.  If they're PROGN forms,
            then their PROGN is unwrapped first.
  "
    `(progn ,@(mapcan (lambda (form) (cond
                                       ((null form)
                                        '())
                                       ((and (listp form) (eq 'progn (first form)))
                                        (copy-list (rest form)))
                                       (t
                                        (list form))))
                      forms)))
  
  
  
  (defmacro wsiosbp (&body body)
  