anchor.diff:  (declaim (ftype (function (stream &key (abort t)) t)
                   close))
   
  -(declaim (ftype (function (hash-table) hash-table) clrhash))
  +(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 t) t)
  +                coerce))
   
   (declaim (ftype (function (t &optional t)
                             (values t t t))
  
positive.code: (declaim (ftype (function (symbol) t)
                  boundp))
  
  (declaim (ftype (function (&optional (or string function)) &rest list) null)
           break)
  
  (declaim (ftype (function (broadcast-stream) list)
                  broadcast-stream-streams))
  
negative.code:                 byte-position))
  
  (declaim (ftype (function (list) t)
                  car
                  cdr
                  caar
                  cadr
                  cdar
                  cddr
                  caaar
                  caadr
                  cadar
                  caddr
                  cdaar
                  cdadr
                  cddar
                  cdddr
                  caaaar
                  caaadr
                  caadar
                  caaddr
                  cadaar
                  cadadr
                  caddar
                  cadddr
                  cdaaar
                  cdaadr
                  cdadar
                  cdaddr
                  cddaar
                  cddadr
                  cdddar
                  cddddr))
  
  (declaim (ftype (function (number &optional (real 0))
                            (values integer real))
                  floor
                  ceiling
                  truncate
                  round))
  
  (declaim (ftype (function (cell-error) t)
                  cell-error-name))
  