Changeset 13052

Timestamp:

Oct 19, 2009, 6:39:11 PM (15 years ago)

Author:

R. Matthew Emerson

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)