Commit aa12a246 authored by Jan Idzikowski's avatar Jan Idzikowski

ups sorry, the package.lisp file from Hans Huebners patch

parent 2c255874
;;; -*- 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)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment