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)))