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:       (with-accept-activation-chars (all-characters :override t)
  	(let ((line (make-array 1 :fill-pointer 0
  				:adjustable t
  				:element-type #+genera 'string-char
  				#-genera 'character)))
  	  (loop
  	    (let ((char (read-char-for-accept stream)))
  	      (if (consp char) (setq char (second char)))
  
negative.code: 	(formatting-item-list
  	 (stream :n-columns n-columns
  		 :n-rows n-rows
                   :x-spacing
  		 '(2 :character))
  	 (draw-all sequence stream))))))
  
  (define-presentation-type alist-subset (&key alist)
    ;; Yes, I know clim 1.0 has one of these, but it doesn't work in avv mode!.
    :parser ((stream)
  