[cl-smtp-cvs] CVS cl-smtp

[jidzikowski]

Update of /project/cl-smtp/cvsroot/cl-smtp
In directory clnet:/tmp/cvs-serv32398

Added Files:
	package.lisp 
Log Message:
ups sorry, the package.lisp file from Hans Huebners patch




--- /project/cl-smtp/cvsroot/cl-smtp/package.lisp	2008/04/02 19:39:59	NONE
+++ /project/cl-smtp/cvsroot/cl-smtp/package.lisp	2008/04/02 19:39:59	1.1
;;; -*- mode: Lisp -*-
       
;;; This file is part of CL-SMTP, the Lisp SMTP Client

;;; Copyright (C) 2004/2005/2006/2007 Jan Idzikowski

;;; This library is free software; you can redistribute it and/or
;;; modify it under the terms of the Lisp Lesser General Public License
;;; (http://opensource.franz.com/preamble.html), known as the LLGPL.

;;; This library is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; Lisp Lesser GNU General Public License for more details.

;;; File: package.lisp
;;; Description: cl-smtp package definition file

(in-package :cl-user)

(defpackage :cl-smtp
  (:use :cl :asdf :flexi-streams :trivial-gray-streams)
  (:export "SEND-EMAIL"
           "WITH-SMTP-MAIL"
           "SMTP-ERROR"
           "SMTP-PROTOCOL-ERROR"
           "NO-SUPPORTED-AUTHENTICATION-METHOD"
           "RCPT-FAILED"
           "IGNORE-RECIPIENT"))

(in-package :cl-smtp)

(defparameter *debug* nil)

(defmacro print-debug (str)
  `(when *debug*
      (print ,str)))