Added access authorization framework, added port to ACL 5. ACL 5
seems to need eval-when wrapped around certain defconstant forms when used in the same file (maybe because of compiler-macros).
This commit is contained in:
@ -14,6 +14,8 @@
|
||||
;;;; with HTTP component constructs, based on the HTTP grammar.
|
||||
;;;;
|
||||
|
||||
(eval-when (:compile-toplevel :load-toplevel :execute)
|
||||
|
||||
(defconstant +HTTP-LWS-Character-Bag+ '(#\Space #\Tab)
|
||||
"HTTP LWS characters.")
|
||||
|
||||
@ -26,6 +28,8 @@
|
||||
(defconstant +HTTP-Pair-Delimiter+ #\=
|
||||
"HTTP key-value pair delimiter character.")
|
||||
|
||||
)
|
||||
|
||||
(defun char-lws-p (char)
|
||||
(declare (type character char))
|
||||
(member char +HTTP-LWS-Character-Bag+ :test #'char=))
|
||||
|
||||
Reference in New Issue
Block a user