#-allegro (defvar *current-case-mode* :case-insensitive-upper)
#+allegro (eval-when (compile load eval)
(import '(excl:*current-case-mode*
excl:delimited-string-to-list
#-allegro (defvar *current-case-mode* :case-insensitive-upper)
#+allegro (eval-when (compile load eval)
(import '(excl:*current-case-mode*
excl:delimited-string-to-list