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:     (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+)))
      ;;
  