From 9a613ba731125584906aeb4886869428e2c3ba32 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 17 Mar 2004 01:02:10 +0000 Subject: [PATCH] r8753: fix compilation for acl-compat.excl --- debian/changelog | 6 ++++++ debian/control | 2 +- imap.lisp | 5 ++++- package.lisp | 4 +++- 4 files changed, 14 insertions(+), 3 deletions(-) diff --git a/debian/changelog b/debian/changelog index c456f1f..1e99baf 100644 --- 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 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 10bd143..25ff3f5 100644 --- a/debian/control +++ b/debian/control @@ -3,7 +3,7 @@ Section: devel Priority: optional Maintainer: Kevin M. Rosenberg 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 634fb5d..b873bca 100644 --- 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 f105140..a9a582d 100644 --- 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 -- 2.34.1