X-Git-Url: http://git.kpe.io/?p=puri.git;a=blobdiff_plain;f=src.lisp;fp=src.lisp;h=d39d32b249b127e83b6ff8925472923998bb95f1;hp=ab13bad4a490d76a83fbe13d499e87eef7714d6a;hb=1c768744300916893c359ccf18cfe2dbb55b3978;hpb=3d8bae190ceef8b2b9f48fdffd6baacd270273d4

diff --git a/src.lisp b/src.lisp
index ab13bad..d39d32b 100644
--- 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))