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

[rme at clozure.com]

Author: rme
Date: Mon Oct 19 21:48:50 2009
New Revision: 13053

Log:
Undo r13051.  (test first, commit second...)

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:48:50 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 file-name start-offset map)
+(defmethod ccl::read-toplevel-form ((stream cocoa-listener-input-stream) &=
key eof-value)
   (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