[movitz-cvs] CVS movitz/losp/muerte - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

10 Apr 2006

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv5157
Modified Files:
    streams.lisp 
Log Message:
Have finish-output accept a function as stream designator.

--- /project/movitz/cvsroot/movitz/losp/muerte/streams.lisp	2004/11/24 16:19:36	1.4
+++ /project/movitz/cvsroot/movitz/losp/muerte/streams.lisp	2006/04/10 11:57:24	1.5
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld frodef@acm.org
 ;;;; Created at:    Mon Jun 30 14:33:15 2003
 ;;;;                
-;;;; $Id: streams.lisp,v 1.4 2004/11/24 16:19:36 ffjeld Exp $
+;;;; $Id: streams.lisp,v 1.5 2006/04/10 11:57:24 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -125,6 +125,7 @@
 destination, and then returns."
   (let ((stream (output-stream-designator stream)))
     (etypecase stream
+      (function)			; NOP
       (simple-stream
        (%finish-output stream)))))

    