X-Git-Url: http://git.kpe.io/?p=postoffice.git;a=blobdiff_plain;f=imap.lisp;fp=imap.lisp;h=1d9f7d6d3c32cab7cc49d7871311179eecc2b240;hp=01597e84dd187be94842923b583f1c5f5e878a2e;hb=7b2b34e0e1d09d82715cd71f9a6f176a5c6bb34f;hpb=3910bbaf61a496366d2ed6933fb5e4d44abf8f99

diff --git a/imap.lisp b/imap.lisp
index 01597e8..1d9f7d6 100644
--- a/imap.lisp
+++ b/imap.lisp
@@ -19,7 +19,7 @@
 ;; Commercial Software developed at private expense as specified in
 ;; DOD FAR Supplement 52.227-7013 (c) (1) (ii), as applicable.
 ;;
-;; $Id: imap.lisp,v 1.1 2002/10/10 00:12:45 kevin Exp $
+;; $Id: imap.lisp,v 1.2 2003/05/31 13:41:10 kevin Exp $
 
 ;; Description:
 ;;
@@ -1833,7 +1833,7 @@
 (defun get-line-buffer (size)
   ;; get a buffer of at least size bytes
   (setq size (min size (1- array-total-size-limit)))
-  (:without-scheduling
+  (without-scheduling
     (dolist (buff *line-buffers* (make-string size))
 	(if* (>= (length buff) size)
 	   then ; use this one