Add US-ASCII unprintable control characters to the exlusion list per RFC2396 2.4.3
http://www.ietf.org/rfc/rfc2396.txt Adds to *excluded-characters*, with a test
This commit is contained in:
committed by
Kevin Rosenberg
parent
3d8bae190c
commit
1c76874430
8
src.lisp
8
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))
|
||||
|
||||
Reference in New Issue
Block a user