root/trunk/thirdparty/cl-smtp/package.lisp

Revision 2855, 1.1 KB (checked in by hans, 2 years ago)

update cl-smtp from trunk

Line 
1;;; -*- mode: Lisp -*-
2       
3;;; This file is part of CL-SMTP, the Lisp SMTP Client
4
5;;; Copyright (C) 2004/2005/2006/2007 Jan Idzikowski
6
7;;; This library is free software; you can redistribute it and/or
8;;; modify it under the terms of the Lisp Lesser General Public License
9;;; (http://opensource.franz.com/preamble.html), known as the LLGPL.
10
11;;; This library is distributed in the hope that it will be useful,
12;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
13;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14;;; Lisp Lesser GNU General Public License for more details.
15
16;;; File: package.lisp
17;;; Description: cl-smtp package definition file
18
19(in-package :cl-user)
20
21(defpackage :cl-smtp
22  (:use :cl :asdf :flexi-streams :trivial-gray-streams)
23  (:export "SEND-EMAIL"
24           "WITH-SMTP-MAIL"
25           "SMTP-ERROR"
26           "SMTP-PROTOCOL-ERROR"
27           "NO-SUPPORTED-AUTHENTICATION-METHOD"
28           "RCPT-FAILED"
29           "IGNORE-RECIPIENT"))
30
31(in-package :cl-smtp)
32
33(defparameter *debug* nil)
34
35(defmacro print-debug (str)
36  `(when *debug*
37      (print ,str)))
38
Note: See TracBrowser for help on using the browser.