From 922eb9604ed32d3412e71cb41530dfa8a0216ef0 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Wed, 16 Oct 2002 02:10:56 +0000
Subject: [PATCH] r3042: *** empty log message ***

---
 debian/changelog      | 7 +++++++
 debian/postoffice.asd | 4 +++-
 smtp.lisp             | 8 ++++----
 3 files changed, 14 insertions(+), 5 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index 30a6a5b..8807173 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,10 @@
+cl-postoffice (1.8.2-1) unstable; urgency=low
+
+  * Change call to make-socket to use string rather than numeric ip
+  address for acl-compat compatibility.
+  
+ -- Kevin M. Rosenberg <kmr@debian.org>  Tue, 15 Oct 2002 20:09:29 -0600
+
 cl-postoffice (1.8.1-1) unstable; urgency=low
 
   * Rework dns-query for non-allegro systems
diff --git a/debian/postoffice.asd b/debian/postoffice.asd
index 87b60a7..de36146 100644
--- a/debian/postoffice.asd
+++ b/debian/postoffice.asd
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Sep 2002
 ;;;;
-;;;; $Id: postoffice.asd,v 1.2 2002/10/09 23:28:41 kevin Exp $
+;;;; $Id: postoffice.asd,v 1.3 2002/10/16 02:10:56 kevin Exp $
 ;;;;
 ;;;; This file, part of cl-postoffice, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -18,6 +18,7 @@
 
 (in-package :asdf)
 
+#+(or allegro lispworks cmu openmcl)
 (defsystem :postoffice
   :name "cl-postoffice"
   :author "Franz, Inc"
@@ -37,6 +38,7 @@
   #-allegro :depends-on #-allegro (:acl-compat)
   )
 
+#+(or allegro lispworks cmu openmcl)
 (when (ignore-errors (find-class 'load-compiled-op))
   (defmethod perform :after ((op load-compiled-op) (c (eql (find-system :postoffice))))
     (pushnew :postoffice cl:*features*)))
diff --git a/smtp.lisp b/smtp.lisp
index 458ca27..88dc494 100644
--- a/smtp.lisp
+++ b/smtp.lisp
@@ -23,7 +23,7 @@
 ;; Suite 330, Boston, MA  02111-1307  USA
 ;;
 ;;
-;; $Id: smtp.lisp,v 1.3 2002/10/16 01:35:48 kevin Exp $
+;; $Id: smtp.lisp,v 1.4 2002/10/16 02:10:56 kevin Exp $
 
 ;; Description:
 ;;   send mail to an smtp server.  See rfc821 for the spec.
@@ -251,9 +251,9 @@
     (if* (null ipaddr)
        then (error "Can't determine ip addres for mail server ~s" server))
     
-    (setq sock (make-socket :remote-host ipaddr
-				   :remote-port 25  ; smtp
-				   ))
+    (setq sock (make-socket :remote-host #+allegro ipaddr #-allegro server
+			    :remote-port 25  ; smtp
+			    ))
     (unwind-protect
 	(progn
 	  (response-case (sock msg)
-- 
2.34.1