anchor.diff:                  "String-Spec::subFromTo"
                   "String-Spec::++-2"
                   "String-Spec::!++"
  -                "String-Spec::|!forall?-1-1|"
  -                "String-Spec::|!forall?|"
  -                "String-Spec::|!exists?-1-1|"
  -                "String-Spec::|!exists?|"
  +                "String-Spec::forall?-1-1"
  +                "String-Spec::forall?"
  +                "String-Spec::exists?-1-1"
  +                "String-Spec::exists?"
                   "String-Spec::map-1-1"
                   "String-Spec::|!map|"
                   "String-Spec::flatten"
  
positive.code:  (the cl:fixnum 
     (array-dimension x 0)))
  
  (defun |!@-2| (s n)
   (declare (type cl:simple-string s) (type cl:fixnum n))
   (elt s n))
  
  (define-compiler-macro |!@-2| (s n)
    `(elt (the cl:simple-string ,s) (the cl:fixnum ,n)))
  
  (defun |!@| (sn)
  
negative.code:       (append '("STRING-SPEC::implode"
                  "STRING-SPEC::explode"
                  "STRING-SPEC::|!length|"
                  "STRING-SPEC::|@-2|"
                  "STRING-SPEC::|@|"
                  "STRING-SPEC::sub-2"
                  "STRING-SPEC::sub"
                  "STRING-SPEC::subFromTo-3"
                  "STRING-SPEC::subFromTo"
                  "STRING-SPEC::++-2"
                  "STRING-SPEC::!++"
                  "STRING-SPEC::forall?-1-1"
                  "STRING-SPEC::forall?"
                  "STRING-SPEC::exists?-1-1"
                  "STRING-SPEC::exists?|"
                  "STRING-SPEC::map-1-1"
                  "STRING-SPEC::|!map|"
                  "STRING-SPEC::flatten"
  