anchor.diff:    t)
   
   (defmethod check-symbol (symbol (category (eql :presentation-type-abbrev)))
  -  t)+  t)
  
positive.code:  (STREAM-END-OF-LINE-ACTION . :generic)
   (STREAM-END-OF-PAGE-ACTION . :generic)
   (STREAM-FINISH-OUTPUT . :generic)
   (STREAM-FINISH-OUTPUT . :generic)
   (STREAM-FORCE-OUTPUT . :generic)
   (STREAM-FORCE-OUTPUT . :generic)
   (STREAM-FRESH-LINE . :generic)
   (STREAM-FRESH-LINE . :generic)
   (STREAM-INCREMENT-CURSOR-POSITION . :generic)
   (STREAM-INPUT-BUFFER . :generic)
   (STREAM-INPUT-WAIT . :generic)
   (STREAM-INSERTION-POINTER . :generic)
   (STREAM-LINE-COLUMN . :generic)
   (STREAM-LINE-COLUMN . :generic)
   (STREAM-LINE-HEIGHT . :generic)
   (STREAM-LISTEN . :generic)
   (STREAM-LISTEN . :generic)
   (STREAM-OUTPUT-HISTORY . :generic)
   (STREAM-OUTPUT-HISTORY-MIXIN . :class)
   (STREAM-PATHNAME . :generic)
   (STREAM-PEEK-CHAR . :generic)
   (STREAM-PEEK-CHAR . :generic)
   (STREAM-POINTER-POSITION . :generic)
   (STREAM-PRESENT . :generic)
   (STREAM-PROCESS-GESTURE . :generic)
   (STREAM-READ-BYTE . :generic)
   (STREAM-READ-CHAR . :generic)
   (STREAM-READ-CHAR . :generic)
   (STREAM-READ-CHAR-NO-HANG . :generic)
   (STREAM-READ-CHAR-NO-HANG . :generic)
   (STREAM-READ-GESTURE . :generic)
   (STREAM-READ-LINE . :generic)
   (STREAM-READ-LINE . :generic)
   (STREAM-RECORDING-P . :generic)
   (STREAM-REDISPLAYING-P . :generic)
  
negative.code: (defmethod check-symbol (symbol (category (eql :command-table)))
    (find-command-table symbol :errorp nil))
  
  (defmethod check-symbol (symbol (category (eql :presentation-method)))
    t)
  
  