anchor.diff:  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
   
  +
   #-:with-debug-gensym
   (defmacro with-gensyms (syms &body body)
     "
  
positive.code:         "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.LIST")
    (:export
     ;; 3 - EVALUATION AND COMPILATION
     "WITH-GENSYMS" "WSIOSBP"
     "CURRY" "COMPOSE" "COMPOSE-AND-CALL"
     "DEFINE-IF-UNDEFINED"  "INCLUDE" "FUNCTIONAL-PIPE"
     "FIRST-ARG" "SECOND-ARG" "THIRD-ARG" "FOURTH-ARG" "FIFTH-ARG"
  
negative.code:          '(member ,@(loop
                        :with val = -1
                        :for cname :in constants
                        :collect (if (consp cname)
                                     (setf val (second cname))
                                     (incf val))))))))
  
  
  (defun op-type-of (symbol &optional env)
  