anchor.diff:   (STREAM-SCAN-POINTER . :generic)
    (STREAM-SET-INPUT-FOCUS . :generic)
    (STREAM-START-LINE-P . :generic)
  - (STREAM-START-LINE-P . :generic)
    (STREAM-STRING-WIDTH . :generic)
  - (STREAM-TERPRI . :generic)
    (STREAM-TERPRI . :generic)
    (STREAM-TEXT-CURSOR . :generic)
    (STREAM-TEXT-MARGIN . :generic)
    (STREAM-TEXT-OUTPUT-RECORD . :generic)
    (STREAM-TRUENAME . :generic)
    (STREAM-UNREAD-CHAR . :generic)
  - (STREAM-UNREAD-CHAR . :generic)
    (STREAM-UNREAD-GESTURE . :generic)
    (STREAM-VERTICAL-SPACING . :generic)
    (STREAM-WRITE-BYTE . :generic)
    (STREAM-WRITE-CHAR . :generic)
  - (STREAM-WRITE-CHAR . :generic)
  - (STREAM-WRITE-STRING . :generic)
    (STREAM-WRITE-STRING . :generic)
    (STREAMP . :generic)
    (STRING . :presentation-type)
  
positive.code:  (WITH-TEXT-SIZE . :macro)
   (WITH-TEXT-STYLE . :macro)
   (WITH-TRANSLATION . :macro)
   (WRITE-TOKEN . :function)
                         ))
  
  (defgeneric check-symbol (symbol category))
  
  (defun check ()
    (loop for (symbol . category) in *info*
       do (unless (check-symbol symbol category)
            (format t "~&Error: ~S ~S.~%" symbol category))))
  
  (defmethod check-symbol (symbol (category (eql :function)))
    (fboundp symbol))
  
negative.code:  (STREAM-ADD-OUTPUT-RECORD . :generic)
   (STREAM-ADD-STRING-OUTPUT . :generic)
   (STREAM-ADVANCE-TO-COLUMN . :generic)
   (STREAM-BASELINE . :generic)
   (STREAM-CHARACTER-WIDTH . :generic)
   (STREAM-CLEAR-INPUT . :generic)
   (STREAM-CLEAR-OUTPUT . :generic)
   (STREAM-CLOSE-TEXT-OUTPUT-RECORD . :generic)
   (STREAM-CURRENT-OUTPUT-RECORD . :generic)
  