anchor.diff:  	    ((and recursive?
   		  (eq (svref comment-table (char-code char)) 
   		      +maybe-open-comment-code+))
  -	     (let ((new-quint (applicable-extended-comment-quint 
  -			      char ps-stream 
  -			      (extended-comment-state-all-quints ec-state))))
  -	       (when (not (null new-quint))
  -		 (aux-skip-extended-comment ps-stream new-quint ec-state))))))))
  +	     (let ((new-quad (applicable-extended-comment-quad 
  +				char ps-stream 
  +				(extended-comment-state-all-quads ec-state))))
  +	       (when (not (null new-quad))
  +		 (aux-skip-extended-comment ps-stream new-quad ec-state))))))))
   
   ;;; ========================================================================
   
  
positive.code: 	 (char           )
  	 (char-code      )
  	 (token-chars    nil)
  	 (this-ec-quint  nil)
  	 (hex-char-1      )
  	 (hex-char-code-1 )
  	 (hex-char-2      )
  
negative.code:     (assign-tokenizer-code  string-table string-escape-char    +string-escape-code+)
      ;;
      ;;
      (dolist (quad extended-comment-delimiters)
        (let* ((open-comment-string  (first  quad))
  	     (close-comment-string (second quad))
  	     (recursive?           (third  quad)) 
  	     (eof-ok?              (if (null (cdddr quad)) nil (fourth quad))))
  	(unless (and (stringp open-comment-string)
  		     (> (length open-comment-string) 0)
  		     (stringp close-comment-string)
  		     (> (length close-comment-string) 0)
  		     (member recursive? '(t nil))
  		     (member eof-ok?    '(t nil)))
  	  (break "Bad description of extended comment delimiters.  Want (open-str close-str recursive? eof-ok?) : ~S" 
  		 quad))
  	(setf (svref comment-table (char-code (schar open-comment-string 0)))
  	  +maybe-open-comment-code+)))
      ;;
  