X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=imap.lisp;h=b873bca2772c0b5266a2ec28fa9867eb792e0e29;hb=9a613ba731125584906aeb4886869428e2c3ba32;hp=1d9f7d6d3c32cab7cc49d7871311179eecc2b240;hpb=7b2b34e0e1d09d82715cd71f9a6f176a5c6bb34f;p=postoffice.git

diff --git a/imap.lisp b/imap.lisp
index 1d9f7d6..b873bca 100644
--- 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.
 ;;
-;; $Id: imap.lisp,v 1.2 2003/05/31 13:41:10 kevin Exp $
+;; $Id$
 
 ;; 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)
+       #+allegro
        (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
-  (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)))