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: (declaim (ftype (function (stream &key (abort t)) t)
                  close))
  
  (declaim (ftype (function (hash-table) hash-table) clrhash))
  
  (declaim (ftype (function (t) (or character null)) code-char))
  
  (declaim (ftype (function (t t) t) coerce))
  
  (declaim (ftype (function (t &optional t)
                            (values t t t))
  
negative.code: (declaim (ftype (function (concatenated-stream) list)
                  concatenated-stream-streams))
  
  (declaim (ftype (function (number) number)
                  conjugate))
  
  (declaim (ftype (function (t t) cons)
                  cons))
  
  (declaim (ftype general-predicate
                  consp))
  
  (declaim (ftype (function (t) (function ()))
                  constantly))
  
  (declaim (ftype general-predicate
                  constantp))
  
  (declaim (ftype (function (&optional (or condition null)) null)
                  continue))
  
  (declaim (ftype (function (list) list)
                  copy-alist
                  copy-list))
  
  (declaim (ftype (function (&optional t) t)
                  copy-pprint-dispatch))
  
  (declaim (ftype (function (&optional (or null readtable) (or null readtable))
                            (or null readtable))
                  copy-readtable))
  
  (declaim (ftype (function (sequence) sequence)
                  copy-seq))
  
  (declaim (ftype (function (structure-object) structure-object) copy-structure))
  
  (declaim (ftype (function (symbol &optional t) symbol)
                  copy-symbol))
  
  (declaim (ftype (function (t) t)
                  copy-tree))
  
  (declaim (ftype (function (t sequence
                               &key
  