r5332: Auto commit for Debian build

diff --git a/debian/changelog b/debian/changelog
index f01cdb2813d9621c05a621b618ace74690f117b0..491a7d97e46748786f900c734fb1ecc276163bad 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-puri (1.2.4-1) unstable; urgency=low
+
+  * Fix typo for non-Allegro / non-SBCL platforms
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Fri, 18 Jul 2003 21:11:54 -0600
+
 cl-puri (1.2.3-1) unstable; urgency=low
 
   * Include uri.html documentation file.

diff --git a/src.lisp b/src.lisp
index d900a06628b1603059aadcccf4fc32ab4131f4cc..f16cc47948ccdd8a2274bbb7c5c73c1c9aad7352 100644 (file)
--- a/src.lisp
+++ b/src.lisp
@@ -22,7 +22,7 @@
 ;; Original version from ACL 6.1:
 ;; uri.cl,v 2.3.6.4.2.1 2001/08/09 17:42:39 layer
 ;;
-;; $Id: src.lisp,v 1.3 2003/07/18 21:00:54 kevin Exp $
+;; $Id: src.lisp,v 1.4 2003/07/19 03:12:18 kevin Exp $
 
 (defpackage #:puri
   (:use #:cl)
@@ -65,7 +65,7 @@
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defvar if*-keyword-list '("then" "thenret" "else" "elseif")))
 
-#-allegro
+#-(or allegro lispworks)
 (define-condition parse-error (error)  ())
 
 (defun .parse-error (fmt &rest args)
@@ -756,6 +756,7 @@ URI ~s contains illegal character ~s at position ~d."
        (sb-kernel:shrink-vector new-string new-i)
        #-(or allegro sbcl)
        (subseq new-string 0 new-i)
+       #+(or allegro sbcl)
        new-string)
     (if* (char= #\% (setq ch (schar string i)))
        then (when (> (+ i 3) max)
@@ -882,6 +883,7 @@ URI ~s contains illegal character ~s at position ~d."
        (sb-kernel:shrink-vector new-string (incf new-i))
        #-(or allegro sbcl)
        (subseq new-string 0 (incf new-i))
+       #+(or allegro sbcl)
        new-string)
     (setq ci (char-int (setq c (schar string i))))
     (if* (or (null reserved-chars)