X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=utils.lisp;h=387fa7396c706497a05308637ed4c40eaec900bc;hb=ea50229269c428ed82edcda11fa056786469cac7;hp=fe10081cf9693eb40eb2e2b91f2dbe622067e655;hpb=fa641fe08adb5cede535a6dd79a79047c78ecf8a;p=cl-modlisp.git

diff --git a/utils.lisp b/utils.lisp
index fe10081..387fa73 100644
--- 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)