r8753: fix compilation for acl-compat.excl

diff --git a/debian/changelog b/debian/changelog
index c456f1f16e151fd83bb80721611ef4199cc02298..1e99baf8ef6828770e4cd9d3fae99bf872266b54 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-postoffice (1.8.2.3-1) unstable; urgency=low
+
+  * Use acl-compat.excl package name
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Tue, 16 Mar 2004 17:58:40 -0700
+
 cl-postoffice (1.8.2.2-1) unstable; urgency=low
 
   * Fix typo

diff --git a/debian/control b/debian/control
index 10bd143a9374a763afe7307a4e96fde54c218cc2..25ff3f50ca43ee959eb0d70637b62e08da44fc5d 100644 (file)
--- a/debian/control
+++ b/debian/control
@@ -3,7 +3,7 @@ Section: devel
 Priority: optional
 Maintainer: Kevin M. Rosenberg <kmr@debian.org>
 Build-Depends-Indep: debhelper (>= 4.0.0)
-Standards-Version: 3.5.10.0
+Standards-Version: 3.6.1.0
 
 Package: cl-postoffice
 Architecture: all

diff --git a/imap.lisp b/imap.lisp
index 634fb5dfce6808557f8f4e8c660a7d0cb9d50971..b873bca2772c0b5266a2ec28fa9867eb792e0e29 100644 (file)
--- a/imap.lisp
+++ b/imap.lisp
@@ -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)))

diff --git a/package.lisp b/package.lisp
index f1051407ea6e9fc48846ff0519097e6f30b4b597..a9a582d0585262461c7e0d857d9989fe9e2e1619 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -1,5 +1,7 @@
 (defpackage :net.post-office
-  (:use #:cl #:excl
+  (:use #:cl
+       #-allegro #:acl-compat.excl
+       #+allegro #:excl
        #-allegro :acl-socket
        #+allegro :socket
        #-allegro :acl-compat-mp