OSCL/PURI
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

r10806: Automated commit for Debian build of puri upstream-version-1.3.1.3

Browse Source
This commit is contained in:
Kevin M. Rosenberg
2005-11-07 17:38:42 +00:00
parent 888c176814
commit 409ffc1a2c
2 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
debian/changelog vendored
View File

@ -1,3 +1,9 @@
cl-puri (1.3.1.3-1) unstable; urgency=low
* New upstream
-- Kevin M. Rosenberg <kmr@debian.org> Mon, 7 Nov 2005 10:33:45 -0700
cl-puri (1.3.1.2-2) unstable; urgency=low cl-puri (1.3.1.2-2) unstable; urgency=low
* Reupload with correct changelog date * Reupload with correct changelog date

2
src.lisp
View File

@ -900,6 +900,8 @@ URI ~s contains illegal character ~s at position ~d."
(vector #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9 #\a #\b #\c #\d #\e #\f)) (vector #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9 #\a #\b #\c #\d #\e #\f))
(defun encode-escaped-encoding (string reserved-chars escape) (defun encode-escaped-encoding (string reserved-chars escape)
(unless (typep string 'simple-string)
(setq string (coerce string 'simple-string)))
(when (null escape) (return-from encode-escaped-encoding string)) (when (null escape) (return-from encode-escaped-encoding string))
;; Make a string as big as it possibly needs to be (3 times the original ;; Make a string as big as it possibly needs to be (3 times the original
;; size), and truncate it at the end. ;; size), and truncate it at the end.