Changeset 10614


Ignore:
Timestamp:
Sep 3, 2008, 7:39:33 PM (12 years ago)
Author:
gz
Message:

bunch of #+debug stmts

Location:
trunk/source/cocoa-ide
Files:
6 edited

Legend:

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

    r9251 r10614  
    902902         ;; quote-p means handle characters natively
    903903         (quote-p (and view (hi::hemlock-view-quote-next-p view))))
    904     #+GZ (log-debug "~&quote-p ~s event ~s" quote-p event)
     904    #+debug (log-debug "~&quote-p ~s event ~s" quote-p event)
    905905    (if (or (null view)
    906906            (#/hasMarkedText self)
     
    16871687
    16881688(defmethod hemlock-ext:change-active-pane ((view hi:hemlock-view) new-pane)
    1689   #+GZ (log-debug "change active pane to ~s" new-pane)
     1689  #+debug (log-debug "change active pane to ~s" new-pane)
    16901690  (let* ((pane (hi::hemlock-view-pane view))
    16911691         (text-view (text-pane-text-view pane))
     
    28312831  (let* ((pb (general-pasteboard))
    28322832         (string (progn (#/types pb) (#/stringForType: pb #&NSStringPboardType))))
    2833     #+GZ (log-debug "   string = ~s" string)
     2833    #+debug (log-debug "   string = ~s" string)
    28342834    (unless (%null-ptr-p string)
    28352835      (unless (zerop (ns:ns-range-length (#/rangeOfString: string *ns-cr-string*)))
     
    28732873                     +null-ptr+)
    28742874                    *last-document-created*))))
    2875       #+gz (log-debug "created ~s" doc)
     2875      #+debug (log-debug "created ~s" doc)
    28762876      (when (%null-ptr-p doc)
    28772877        (error "Couldn't open ~s: ~a" pathname
  • trunk/source/cocoa-ide/cocoa-listener.lisp

    r8428 r10614  
    6767      (loop
    6868        (when cur-sstream
    69           #+gz (log-debug "About to recursively read from sstring in env: ~s" cur-env)
     69          #+debug (log-debug "About to recursively read from sstring in env: ~s" cur-env)
    7070          (let* ((env cur-env)
    7171                 (form (progv (car env) (cdr env)
    7272                         (ccl::read-toplevel-form cur-sstream eof-value)))
    7373                 (last-form-in-selection (not (listen cur-sstream))))
    74             #+gz (log-debug " --> ~s" form)
     74            #+debug (log-debug " --> ~s" form)
    7575            (when last-form-in-selection
    7676              (setf cur-sstream nil cur-env nil))
  • trunk/source/cocoa-ide/cocoa-window.lisp

    r9772 r10614  
    163163                        (#/run app)))
    164164        (error (c) (nslog-condition c)))
    165       #+GZ (log-debug "~&runMode exited, end-test: ~s isRunning ~s quitting: ~s" end-test (#/isRunning app) ccl::*quitting*)
     165      #+debug (log-debug "~&runMode exited, end-test: ~s isRunning ~s quitting: ~s" end-test (#/isRunning app) ccl::*quitting*)
    166166      (when (or (and end-test (funcall end-test))
    167167                (and ccl::*quitting* (not (#/isRunning app))))
  • trunk/source/cocoa-ide/hemlock/src/echo.lisp

    r8428 r10614  
    172172              (with-standard-standard-output
    173173                  (gui::event-loop #'(lambda () (eps-parse-results eps))))
    174               #+gz (log-debug "~&Event loop exited!, results = ~s" (eps-parse-results eps)))
     174              #+debug (log-debug "~&Event loop exited!, results = ~s" (eps-parse-results eps)))
    175175         (unless old-eps
    176176           (hemlock-ext:change-active-pane view :text))
     
    183183
    184184(defun exit-echo-parse (eps results)
    185   #+gz (log-debug "~&exit echo parse, results = ~s" results)
     185  #+debug (log-debug "~&exit echo parse, results = ~s" results)
    186186  ;; Must be set to non-nil to indicate parse done.
    187187  (setf (eps-parse-results eps) (or results '(nil)))
  • trunk/source/cocoa-ide/hemlock/src/echocoms.lisp

    r8428 r10614  
    357357    (multiple-value-bind (res exit-p)
    358358                         (funcall (eps-parse-verification-function eps) eps key-event)
    359       #+GZ (log-debug "Key Input Hander: res: ~s exit-p ~s" res exit-p)
     359      #+debug (log-debug "Key Input Hander: res: ~s exit-p ~s" res exit-p)
    360360      (cond (exit-p
    361361             (unless (eq exit-p :confirmed)
  • trunk/source/cocoa-ide/hemlock/src/views.lisp

    r8428 r10614  
    182182
    183183(defmethod execute-hemlock-key ((view hemlock-view) key)
    184   #+gz (log-debug "~&execute-hemlock-key ~s" key)
     184  #+debug (log-debug "~&execute-hemlock-key ~s" key)
    185185  (with-output-to-listener
    186186   (if (or (symbolp key) (functionp key))
     
    188188     (multiple-value-bind (main-binding transparent-bindings)
    189189                          (get-command-binding-for-key view key)
    190        #+gz (log-debug "~&  binding ~s ~s" main-binding transparent-bindings)
     190       #+debug (log-debug "~&  binding ~s ~s" main-binding transparent-bindings)
    191191       (ring-push key *key-event-history*)
    192192       (when main-binding
     
    234234(defmethod handle-hemlock-event ((view hemlock-view) key)
    235235  ;; Key can also be a function, in which case it will get executed in the view event context
    236   #+GZ (log-debug "handle-hemlock-event ~s~:[~; (recursive)~]"
     236  #+debug (log-debug "handle-hemlock-event ~s~:[~; (recursive)~]"
    237237                  key
    238238                  (and (eq view *current-view*)
Note: See TracChangeset for help on using the changeset viewer.