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:
2000-10-30 23:05:23 +00:00
parent 1853c6d6f2
commit 5aa138df6d
4 changed files with 90 additions and 2 deletions

View File

@ -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=))