anchor.diff:    `(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)
  
positive.code:          '(member ,@(loop
                        :with val = -1
                        :for cname :in constants
                        :do (if (consp cname)
                                (setf val (second cname))
                                (incf val))
                        :collect val))))))
  
  
  (defun op-type-of (symbol &optional env)
  
negative.code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  
  
  #-:with-debug-gensym
  (defmacro with-gensyms (syms &body body)
    "
  