From e04389443a9144a133556d371d5ecb0d3b4a1899 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 19 Jul 2003 03:12:18 +0000 Subject: [PATCH 1/1] r5332: Auto commit for Debian build --- debian/changelog | 6 ++++++ src.lisp | 6 ++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/debian/changelog b/debian/changelog index f01cdb2..491a7d9 100644 --- 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 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 d900a06..f16cc47 100644 --- 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) -- 2.34.1