projects
/
puri.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add US-ASCII unprintable control characters to the exlusion list per RFC2396 2.4.3
[puri.git]
/
src.lisp
diff --git
a/src.lisp
b/src.lisp
index ab13bad4a490d76a83fbe13d499e87eef7714d6a..d39d32b249b127e83b6ff8925472923998bb95f1 100644
(file)
--- a/
src.lisp
+++ b/
src.lisp
@@
-355,10
+355,14
@@
;; Parsing
(defparameter *excluded-characters*
;; Parsing
(defparameter *excluded-characters*
- '(;; `delims' (except #\%, because it's handled specially):
+ (append
+ (loop for i from 0 to #x1f
+ collect (code-char i))
+ '(;; `delims' (except #\%, because it's handled specially):
#\< #\> #\" #\space #\#
#\< #\> #\" #\space #\#
+
;; `unwise':
;; `unwise':
- #\{ #\} #\| #\\ #\^ #\[ #\] #\`))
+ #\{ #\} #\| #\\ #\^ #\[ #\] #\`))
)
(defun reserved-char-vector (chars &key except)
(do* ((a (make-array 127 :element-type 'bit :initial-element 0))
(defun reserved-char-vector (chars &key except)
(do* ((a (make-array 127 :element-type 'bit :initial-element 0))