From 3d8bae190ceef8b2b9f48fdffd6baacd270273d4 Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Thu, 28 Jan 2010 09:07:38 -0700 Subject: [PATCH] fix for absent absolute path (Michael Raskin) --- debian/changelog | 6 ++++++ src.lisp | 11 +++++------ 2 files changed, 11 insertions(+), 6 deletions(-) diff --git a/debian/changelog b/debian/changelog index 773e4f0..e1f99d9 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-puri (1.5.3-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Thu, 28 Jan 2010 09:05:26 -0700 + cl-puri (1.5.2-1) unstable; urgency=low * New upstream diff --git a/src.lisp b/src.lisp index a19f889..ab13bad 100644 --- a/src.lisp +++ b/src.lisp @@ -4,7 +4,7 @@ ;; ;; copyright (c) 1999-2002 Franz Inc, Berkeley, 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 ;; modify it under the terms of the version 2.1 of @@ -846,11 +846,10 @@ URI ~s contains illegal character ~s at position ~d." #+allegro (with-output-to-string (s) (excl::maybe-print-fast s port)) ) - (when path - (encode-escaped-encoding path - nil - ;;*reserved-path-characters* - escape)) + (encode-escaped-encoding (or path "/") + nil + ;;*reserved-path-characters* + escape) (when query "?") (when query (encode-escaped-encoding query nil escape)) (when fragment "#") -- 1.7.10.4