anchor.diff:  (defalias -- decf)
   (defalias mvb multiple-value-bind)
   (defalias mvl multiple-value-list)
  +(defalias do  progn)
  +(defalias do1 prog1)
  +(defalias do2 prog2)
  +(defalias = setf)
   
   ;;; functions
   (defalias is eql)
   (defalias iso equalp)
   (defalias no not)
   (defalias len length)
  -(defalias mapf mapcar)
  +(defalias map mapcar)
   (defalias isa typep)
   (defalias uniq gensym)
   (defalias even evenp)
  
positive.code: (defalias cut subseq)
  (defalias rev reverse)
  (defalias nrev nreverse)
  
  
negative.code: ;;;; these are several cl operations which are aliased for clamp
  
  (in-package "CLAMP")
  
  ;;; special forms
  (defalias fn lambda) ; doesn't allow for literal in function position ie ((fn ...) ...)
  (defalias def defun)
  