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