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

bunch of #+debug stmts

File:
1 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
Note: See TracChangeset for help on using the changeset viewer.