From f5ee38cd4af001fa6a1dc4ad9fc23fc460a4f37b Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sun, 3 Jun 2007 14:34:23 +0200 Subject: [PATCH] Removed PRINT-DEBUG macro from NET.SMTP-CLIENT. Signed-off-by: Stelian Ionescu --- protocols/smtp/attachments.lisp | 2 -- protocols/smtp/smtp.lisp | 6 ------ 2 files changed, 8 deletions(-) diff --git a/protocols/smtp/attachments.lisp b/protocols/smtp/attachments.lisp index ccc2f22..e7a8c50 100644 --- a/protocols/smtp/attachments.lisp +++ b/protocols/smtp/attachments.lisp @@ -48,7 +48,6 @@ message (format nil "~%"))) (defun send-attachment (sock attachment boundary buffer-size) - (print-debug (format nil "Sending attachment: ~a" attachment)) (when (probe-file attachment) (let ((name (file-namestring attachment))) (send-attachment-header sock boundary name) @@ -83,7 +82,6 @@ (if (eql bchar 'EOF) (return i) (setf (aref buffer i) bchar))))) - (print-debug (format nil "~%** Byte Count ~a~%" byte-count)) ;; encode the buffer and write out to stream (cl-base64:usb8-array-to-base64-stream (if (< byte-count max-buffer-size) diff --git a/protocols/smtp/smtp.lisp b/protocols/smtp/smtp.lisp index 2afbc07..82ea2ec 100644 --- a/protocols/smtp/smtp.lisp +++ b/protocols/smtp/smtp.lisp @@ -24,10 +24,6 @@ (lisp-implementation-type) (lisp-implementation-version))) -(defmacro print-debug (str) - `(when *debug* - (print ,str))) - (defun check-arg (arg name) (cond ((or (stringp arg) @@ -89,7 +85,6 @@ (error "in RCPT TO command: ~A" msgstr))))) (defun write-to-smtp (sock command) - (print-debug (format nil "to server: ~A" command)) (write-string command sock) (terpri sock) (finish-output sock)) @@ -97,7 +92,6 @@ (defun read-from-smtp (sock) (let* ((line (read-line sock)) (response-code (parse-integer line :start 0 :junk-allowed t))) - (print-debug (format nil "from server: ~A" line)) (if (= (char-code (elt line 3)) (char-code #\-)) (read-from-smtp sock) (values response-code line)))) -- 2.11.4.GIT