Changeset 13052 for release

Timestamp:

Oct 20, 2009, 1:39:11 AM (10 years ago)

Author:

rme

Message:

Merge r13051 here.

File:

• release/1.4/source/cocoa-ide/cocoa-listener.lisp (modified) (1 diff)

release/1.4/source/cocoa-ide/cocoa-listener.lisp

@@ -79 +79 @@
                   (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 cur-string cur-string-pos cur-sstream
                cur-env source-map cur-offset)