anchor.diff:  						  digits-may-start-symbols?
   						  comment-table
   						  separator-tokens 
  -						  comment-quints
  +						  comment-quads
   						  ad-hoc-table
   						  ad-hoc-strings)
   	      (cond ((eq type :EOF)
  
positive.code: 					 digits-may-start-symbols?
  					 comment-table
  					 separator-tokens 
  					 extended-comment-quints
  					 ad-hoc-table
  					 ad-hoc-strings)
    ;; each token looks like: (:kind <semantics> (start-byte start-line start-column) (end-byte end-line end-column))
  
negative.code:   
  (defvar *extended-comment-state* (make-extended-comment-state))
  
  (defun skip-extended-comment (first-char ps-stream this-quad all-quads
  					 comment-table
  					 first-byte first-line first-column)
    (let ((ec-state *extended-comment-state*)) 
      (setf (extended-comment-state-error?        ec-state) nil)
      (setf (extended-comment-state-all-quads     ec-state) all-quads)
      (setf (extended-comment-state-comment-table ec-state) comment-table)
      (setf (extended-comment-state-byte          ec-state) first-byte)
      (setf (extended-comment-state-line          ec-state) first-line)
      (setf (extended-comment-state-column        ec-state) first-column)
      (setf (extended-comment-state-chars         ec-state) (list first-char))
      (aux-skip-extended-comment ps-stream this-quad ec-state)
      (values (extended-comment-state-error? ec-state) 
  	    (extended-comment-state-chars  ec-state) 
  	    (extended-comment-state-byte   ec-state)
  	    (extended-comment-state-line   ec-state)
  	    (extended-comment-state-column ec-state))))
  
  (defun aux-skip-extended-comment (ps-stream this-quad ec-state)
    (let* ((open-comment  (first  this-quad))
  	 (close-comment (second this-quad))
  	 (recursive?    (third  this-quad))
  	 (eof-ok?       (fourth this-quad))
  	 (open-size  (1- (length open-comment)))
  	 (close-size (1- (length close-comment)))
  	 (close-char-0 (schar close-comment 0))
  