anchor.diff:  ;;;;The rfc says this should be here, but it doesn't make sense.
   	       ;; #\=
   	       #\/ #\?))))
  -(defparameter *reserved-path-characters2*
  -    ;; These are the same characters that are in
  -    ;; *reserved-path-characters*, minus #\/.  Why?  Because the parsed
  -    ;; representation of the path can contain the %2f converted into a /.
  -    ;; That's the whole point of having the parsed representation, so that
  -    ;; lisp programs can deal with the path element data in the most
  -    ;; convenient form.
  -    (reserved-char-vector
  -     (append *excluded-characters*
  -	     '(#\;
  -;;;;The rfc says this should be here, but it doesn't make sense.
  -	       ;; #\=
  -	       #\?))))
  +
   (defparameter *reserved-fragment-characters*
       (reserved-char-vector (remove #\# *excluded-characters*)))
   
  
positive.code: ;; -*- mode: common-lisp; package: puri -*-
  ;; Support for URIs in Allegro.
  ;; For general URI information see RFC2396.
  ;;
  ;; copyright (c) 1999-2001 Franz Inc, Berkeley, CA - All rights reserved.
  ;; copyright (c) 2003 Kevin Rosenberg (porting changes)
  ;;
  ;; The software, data and information contained herein are proprietary
  ;; to, and comprise valuable trade secrets of, Franz, Inc.  They are
  ;; given in confidence by Franz, Inc. pursuant to a written license
  ;; agreement, and may be stored and used only in accordance with the terms
  ;; of such license.
  ;;
  ;; Restricted Rights Legend
  ;; ------------------------
  ;; Use, duplication, and disclosure of the software, data and information
  ;; contained herein by any agency, department or entity of the U.S.
  ;; Government are subject to restrictions of Restricted Rights for
  ;; Commercial Software developed at private expense as specified in
  ;; DOD FAR Supplement 52.227-7013 (c) (1) (ii), as applicable.
  ;;
  ;; Original version from ACL 6.1:
  ;; uri.cl,v 2.3.6.4.2.1 2001/08/09 17:42:39 layer
  ;;
  ;; $Id$
  
  
negative.code: 	       "Non-hexidecimal digits after %: %c%c." ch ch2))
  	    (let ((ci (+ (* 16 chc) chc2)))
  	      (if* (or (null reserved-chars)
  		       (> ci 127)	; bug11527
  		       (= 0 (sbit reserved-chars ci)))
  		 then ;; ok as is
  		      (setf (char new-string new-i)
  			(code-char ci))
  