anchor.diff:  			      ()
   			    `((when (and (eq (svref comment-table ,char-code-var) 
   					     +maybe-open-comment-code+)
  -					 (not (null (setq this-ec-quint
  -						      (applicable-extended-comment-quint
  +					 (not (null (setq this-ec-quad
  +						      (applicable-extended-comment-quad
   						       ,char-var
   						       ps-stream 
  -						       extended-comment-quints)))))
  +						       extended-comment-quads)))))
   				,open-extended-comment-action)))))))
   	       (local-unread-char (char-var)
   		 `(progn
  
positive.code:   
  (defvar *extended-comment-state* (make-extended-comment-state))
  
  (defun skip-extended-comment (first-char ps-stream this-quint all-quints
  					 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-quints    ec-state) all-quints)
      (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-quint 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-quint ec-state)
    (let* ((open-comment  (first  this-quint))
  	 (close-comment (second this-quint))
  	 (recursive?    (third  this-quint))
  	 (eof-ok?       (fourth this-quint))
         ;;(pragma?       (fifth  this-quint))
  	 (open-size  (1- (length open-comment)))
  	 (close-size (1- (length close-comment)))
  	 (close-char-0 (schar close-comment 0))
  
negative.code: 	 (char           )
  	 (char-code      )
  	 (token-chars    nil)
  	 (this-ec-quad   nil)
  	 (hex-char-1      )
  	 (hex-char-code-1 )
  	 (hex-char-2      )
  