anchor.diff:                               (print t)
                                (external-format t))
                             (values t t t))
  -                (compile-file)))
  +                compile-file))
                   
   (declaim (ftype (function (t &key (output-file t)) t)
                   compile-file-pathname))
   
  -(declaim (ftype (function (t) t) compiled-function-p))
  +(declaim (ftype general-predicate
  +                compiled-function-p))
   
   (declaim (ftype (function (t &optional t) (or function null))
                   compiler-macro-function))
   
  -(declaim (ftype (function (function) function) complement))
  +(declaim (ftype (function (function) function)
  +                complement))
   
   (declaim (ftype (function (real &optional real) complex)
                   (or rational complex)
  
positive.code:                     (function (real real) number))
                  atan))
  
  (declaim (ftype (function (t) t)
                  atom))
  
  (declaim (ftype (function ((array bit) &rest list) bit)
  
negative.code:                 char-upcase char-downcase))
  
  (declaim (ftype (function (&rest list) t)
                  char=
                  char/=
                  char<
                  char>
                  char<=
                  char>=
                  char-equal
                  char-not-equal
                  char-lessp
                  char-greaterp
                  char-not-greaterp
                  char-not-lessp))
  
  (declaim (ftype (function (character) (integer 0))
                  char-int))
  