[Openmcl-cvs-notifications] r13051 - /trunk/source/cocoa-ide/cocoa-listener.lisp

[rme at clozure.com]

Author: rme
Date: Mon Oct 19 21:38:08 2009
New Revision: 13051

Log:
Method READ-TOPLEVEL-FORM (COCOA-LISTENER-INPUT-STREAM): list additional
keyword args to avoid warnings.

Modified:
    trunk/source/cocoa-ide/cocoa-listener.lisp

Modified: trunk/source/cocoa-ide/cocoa-listener.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/cocoa-ide/cocoa-listener.lisp (original)
+++ trunk/source/cocoa-ide/cocoa-listener.lisp Mon Oct 19 21:38:08 2009
@@ -78,7 +78,7 @@
                   (setf cur-string s cur-string-pos 1)
                   (return (aref s 0))))))))))
 =

-(defmethod ccl::read-toplevel-form ((stream cocoa-listener-input-stream) &=
key eof-value)
+(defmethod ccl::read-toplevel-form ((stream cocoa-listener-input-stream) &=
key eof-value file-name start-offset map)
   (with-slots (queue queue-lock read-lock queue-semaphore text-semaphore c=
ur-string cur-string-pos cur-sstream
                cur-env source-map cur-offset)
     stream