From 8d4701c38737652775e7a47848aad44963c6a1af Mon Sep 17 00:00:00 2001 From: Moskvitin Andrey Date: Wed, 24 Mar 2010 00:21:47 +0300 Subject: [PATCH] fix format --- src.lisp | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) diff --git a/src.lisp b/src.lisp index 3fc5c70..c94c2b2 100644 --- a/src.lisp +++ b/src.lisp @@ -838,24 +838,23 @@ URI ~s contains illegal character ~s at position ~d." (with-output-to-string (out) (loop for ch across decoded-string with i = curpos - do (let ((octet (char-code ch))) + do (let ((code (char-code ch))) (cond ((or (null reserved-chars) - (> octet 127) - (= (sbit reserved-chars octet) 0)) + (> code 127) + (= (sbit reserved-chars code) 0)) (write-char ch out) (incf i (* (cond - ((< octet #x80) 1) - ((< octet #x800) 2) - ((< octet #x10000) 3) - ((< octet #x200000) 4) - ((< octet #x4000000) 5) + ((< code #x80) 1) + ((< code #x800) 2) + ((< code #x10000) 3) + ((< code #x200000) 4) + ((< code #x4000000) 5) (t 6)) 3))) (t (write-string (subseq string i (+ i 3)) out) - (incf i 3) - ))))) + (incf i 3)))))) decoded-string) strs)))) (setf curpos pos)))) -- 1.7.10.4