+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
;;;; 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
;;;;
(in-package :asdf)
+#+(or allegro lispworks cmu openmcl)
(defsystem :postoffice
:name "cl-postoffice"
:author "Franz, Inc"
#-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*)))
;; 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.
(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)