anchor.diff:  		 (present arg 'symbol :stream stream)
   		 (write-char #\space  stream)
   		 (with-output-as-presentation (stream spec 'class)
  -		   (format stream "~S)" (clim-mop:class-name spec))))))
  +		   (format stream "~S" (clim-mop:class-name spec)))
  +                 (write-char #\) stream))))
         (when optional
   	(format stream " &optional ~{~A ~^ ~}" optional))
         (when rest
  
positive.code:       (setf gfs (append gfs (x-specializer-direct-generic-functions x))))
      (remove-duplicates gfs)))
  
  ;; Oops, guess this isn't really comparing symbols anymore. What to call it, then?
  (defun symbol< (a b)
    (when (and (consp a)
               (second a)
               (symbolp (second a)))
  
negative.code: ;; else suggests itself. Mostly to make them layout nice in a
  ;; command menu, if anyone wants such a thing.
  
  (define-command-table dev-commands)
  
  ;;; Presentation types
  
  