anchor.diff:  		(char-equal comparandum (second char-from-accept)))))))
   
   (defun read-token (stream)
  -  #+clim (clim:read-token stream)
  -  #-clim (dw:read-standard-token stream))
  +  (clim:read-token stream))
   
   (defun input-position (stream)
     ;; This location identifies the current position of the parser in a (buffered)
     ;; input stream.  When a character gets read by read-char-for-accept, this pointer
     ;; gets incremented.  Upon failure, the parser backtracks by decrementing it.
  -  #FEATURE-CASE
  -  (((not :clim) (scl:send stream :read-location))
  -   (:clim-0.9 (clim::input-position stream))
  -   (:clim-1.0 (if (clim:extended-input-stream-p stream)
  -		 (clim::input-position stream)
  -	       (file-position stream)))
  -   (:clim-2 (if (clim:input-editing-stream-p stream)
  -		  (clim:stream-scan-pointer stream)
  -		(file-position stream)))))
  +  (if (clim:input-editing-stream-p stream)
  +      (clim:stream-scan-pointer stream)
  +      (file-position stream)))
   
   (defmethod (setf input-position) (new stream)
  -  #FEATURE-CASE
  -  (((not :clim) (scl:send stream :set-location new))
  -   (:clim-1.0 (if (clim:extended-input-stream-p stream)
  -		  (setf (clim::input-position stream) new)
  -		  (file-position stream new)))
  -   (:clim-2 (if (clim:input-editing-stream-p stream)
  -		  (setf (clim:stream-scan-pointer stream) new)
  -		  (file-position stream new)))))
  +  (if (clim:input-editing-stream-p stream)
  +      (setf (clim:stream-scan-pointer stream) new)
  +      (file-position stream new)))
   
   (defun insertion-pointer (stream)
     (cond ((interactive-stream-p stream)
  -	 #FEATURE-CASE
  -	 (((not :clim) (scl:send stream :typein-location))
  -	  (:clim-0.9 (ci::insertion-pointer stream))
  -	  (:clim-1.0 (clim::insertion-pointer stream))
  -	  (:clim-2 (clim:stream-insertion-pointer stream))))
  -	(t				; string-input-stream
  -	 #FEATURE-CASE
  -	 ((:genera (scl:send stream :length))
  -	  (:allegro (slot-value stream 'excl::buffer-ptr))))))
  +	 (clim:stream-insertion-pointer stream))))
   
   (defvar *%%ready-to-catch%%* nil)
   
  
positive.code: ;;;
  
  (defun read-char-for-accept (stream)
    #+clim (read-char stream nil nil)
    #-clim
    (let ((char (loop thereis (send stream :any-tyi)
  		    until (not (interactive-stream-p stream )))))	;bug in IE
      (cond ((listp char) char)
  	  #+dw-is-brain-damaged
  	  ((accept-blip-p char) (list ':accept char nil))
  	  (t char))))
  
  (defun unread-char-for-accept (char stream)
    #FEATURE-CASE
    (((or :clim-0.9 :clim-1.0)
      (if (clim::activation-character-p char)
  	;; unreading an activation character causes problems for stream-unread-gesture.
  	(clim:with-activation-characters (nil :override t) (unread-char char stream))
        (unread-char char stream)))
     (:clim-2
      (if (clim:activation-gesture-p char)
  	;; unreading an activation character causes problems for stream-unread-gesture.
  	(clim:with-activation-gestures (nil :override t) (unread-char char stream))
        (unread-char char stream)))
     ((not :clim)
      (dw:unread-char-for-accept char stream))))
  
  (defun peek-char-for-accept (stream &optional hang)
    (let ((ch (and (or hang
  
negative.code: 					   :value value
  					   :documentation pretty-name)
  			  :single-box t)
  		 (clim:with-room-for-graphics (stream)
  		     (formatting-cell (stream)
  		        (funcall drawer stream value pretty-name selected-p)))))
  