Skip to content
Snippets Groups Projects
Commit 3d8bae19 authored by Kevin Rosenberg's avatar Kevin Rosenberg
Browse files

fix for absent absolute path (Michael Raskin)

parent 2ee36d3d
No related branches found
No related tags found
No related merge requests found
cl-puri (1.5.3-1) unstable; urgency=low
* New upstream
-- Kevin M. Rosenberg <kmr@debian.org> Thu, 28 Jan 2010 09:05:26 -0700
cl-puri (1.5.2-1) unstable; urgency=low cl-puri (1.5.2-1) unstable; urgency=low
* New upstream * New upstream
......
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
;; ;;
;; copyright (c) 1999-2002 Franz Inc, Berkeley, CA - All rights reserved. ;; copyright (c) 1999-2002 Franz Inc, Berkeley, CA - All rights reserved.
;; copyright (c) 2002-2005 Franz Inc, Oakland, CA - All rights reserved. ;; copyright (c) 2002-2005 Franz Inc, Oakland, CA - All rights reserved.
;; copyright (c) 2003-2006 Kevin Rosenberg (porting changes) ;; copyright (c) 2003-2010 Kevin Rosenberg
;; ;;
;; This code is free software; you can redistribute it and/or ;; This code is free software; you can redistribute it and/or
;; modify it under the terms of the version 2.1 of ;; modify it under the terms of the version 2.1 of
...@@ -846,11 +846,10 @@ URI ~s contains illegal character ~s at position ~d." ...@@ -846,11 +846,10 @@ URI ~s contains illegal character ~s at position ~d."
#+allegro (with-output-to-string (s) #+allegro (with-output-to-string (s)
(excl::maybe-print-fast s port)) (excl::maybe-print-fast s port))
) )
(when path (encode-escaped-encoding (or path "/")
(encode-escaped-encoding path nil
nil ;;*reserved-path-characters*
;;*reserved-path-characters* escape)
escape))
(when query "?") (when query "?")
(when query (encode-escaped-encoding query nil escape)) (when query (encode-escaped-encoding query nil escape))
(when fragment "#") (when fragment "#")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment