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*
-    '(;; `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 #\#
+
       ;; `unwise':
-      #\{ #\} #\| #\\ #\^ #\[ #\] #\`))
+      #\{ #\} #\| #\\ #\^ #\[ #\] #\`)))
 
 (defun reserved-char-vector (chars &key except)
   (do* ((a (make-array 127 :element-type 'bit :initial-element 0))