anchor.diff:                                     &key 
                                      (buffer-size 256) ;; in KB
                                      (wrap-at-column 76))
  +  (declare (ignorable wrap-at-column))
     (let* ((max-buffer-size (* buffer-size 1024))
            (byte-count 0)
            (buffer (make-array max-buffer-size 
  
positive.code: 				     (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)
  		 (trimmed-buffer byte-count buffer)
  	       buffer)
               sock :columns wrap-at-column)
              (force-output sock)
              ;;-- when finished reading exit do loop 
              (when (< byte-count max-buffer-size)
                (return)))))))
  
  (defun trimmed-buffer (byte-count buffer)
  
negative.code: ;;; -*- mode: Lisp -*-
  	
  ;;; This file is part of CL-SMTP, the Lisp SMTP Client
  
  
  ;;; Copyright (C) 2004/2005/2006/2007 Jan Idzikowski
  
  