projects
/
postoffice.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8753: fix compilation for acl-compat.excl
[postoffice.git]
/
imap.lisp
diff --git
a/imap.lisp
b/imap.lisp
index 1d9f7d6d3c32cab7cc49d7871311179eecc2b240..b873bca2772c0b5266a2ec28fa9867eb792e0e29 100644
(file)
--- a/
imap.lisp
+++ b/
imap.lisp
@@
-19,7
+19,7
@@
;; Commercial Software developed at private expense as specified in
;; DOD FAR Supplement 52.227-7013 (c) (1) (ii), as applicable.
;;
;; Commercial Software developed at private expense as specified in
;; DOD FAR Supplement 52.227-7013 (c) (1) (ii), as applicable.
;;
-;; $Id
: imap.lisp,v 1.2 2003/05/31 13:41:10 kevin Exp
$
+;; $Id$
;; Description:
;;
;; Description:
;;
@@
-227,6
+227,7
@@
;; a condition either has a server-string or it has a
;; format-control string
(format stream "Post Office condition: ~s~%" identifier)
;; a condition either has a server-string or it has a
;; format-control string
(format stream "Post Office condition: ~s~%" identifier)
+ #+allegro
(if* (and (slot-boundp con 'excl::format-control)
(excl::simple-condition-format-control con))
then (apply #'format stream
(if* (and (slot-boundp con 'excl::format-control)
(excl::simple-condition-format-control con))
then (apply #'format stream
@@
-1664,7
+1665,9
@@
(defun kwd-intern (string)
;; convert the string to the current preferred case
;; and then intern
(defun kwd-intern (string)
;; convert the string to the current preferred case
;; and then intern
- (intern (case excl::*current-case-mode*
+ (intern (case
+ #-allegro acl-compat.excl::*current-case-mode*
+ #+allegro excl::*current-case-mode*
((:case-sensitive-lower
:case-insensitive-lower) (string-downcase string))
(t (string-upcase string)))
((:case-sensitive-lower
:case-insensitive-lower) (string-downcase string))
(t (string-upcase string)))