anchor.diff:     "MEMO" "DEFMEMO"
   
      ;;; tables
  -   "KEYS" "VALS" "LISTTAB" "TABLIST" "OBJ" "ALREF"
  -   ))
  +   "KEYS" "VALS" "LISTTAB" "TABLIST" "OBJ" "ALREF"))
  
positive.code: (defpackage "CLAMP"
    (:nicknames "CLAMP")
    (:use "COMMON-LISP")
    (:shadow "DO" "MAP" "IF" "REM" "="
  	   "LET" "FIND" "COUNT" "SUBST" "SORT")
    (:export
     ;;; defalias
  
negative.code:    "MAPPEND" "SUBST"
  
     ;;; conditions
     "IFLET" "WHENLET" "AIF" "IT" "AWHEN" "AAND" "AIF2" "CASE"
  
     ;;; list
     "RANGE" "FIRSTN" "LAST1" "LEN<" "LEN>"
  