Changeset 12107


Ignore:
Timestamp:
May 22, 2009, 9:26:35 AM (10 years ago)
Author:
gb
Message:

#+debug in #/exitBreak.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-listener.lisp

    r12088 r12107  
    4141   (cur-env :initform nil)
    4242   (cur-sstream :initform nil)))
     43
     44
    4345
    4446(defmethod dequeue-listener-char ((stream cocoa-listener-input-stream) wait-p)
     
    471473  (declare (ignore sender))
    472474  (let* ((process (hemlock-document-process self)))
    473     (log-debug  "~&exitBreak process ~s" process)
     475    #+debug (log-debug  "~&exitBreak process ~s" process)
    474476    (when process
    475477      (process-interrupt process #'abort-break))))
Note: See TracChangeset for help on using the changeset viewer.