r5277: *** empty log message ***

[cl-modlisp.git] / utils.lisp

diff --git a/utils.lisp b/utils.lisp
index fe10081cf9693eb40eb2e2b91f2dbe622067e655..387fa7396c706497a05308637ed4c40eaec900bc 100644 (file)
--- a/utils.lisp
+++ b/utils.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Dec 2002
 ;;;;
-;;;; $Id: utils.lisp,v 1.5 2003/07/10 18:58:29 kevin Exp $
+;;;; $Id: utils.lisp,v 1.6 2003/07/11 02:38:00 kevin Exp $
 ;;;; *************************************************************************
 
 (in-package #:modlisp)
@@ -49,7 +49,7 @@
         (write-string "end" *modlisp-socket*)
         (write-char #\NewLine *modlisp-socket*)
         (write-string ,outstr *modlisp-socket*)
-        (force-output *modlisp-socket*)
+        (finish-output *modlisp-socket*)
         (setq *close-modlisp-socket* nil))
        (t
         (setq *close-modlisp-socket* t)