Changeset 11845 for release/1.3


Ignore:
Timestamp:
Mar 26, 2009, 12:01:41 PM (10 years ago)
Author:
cater
Message:

Change EASYGUI DCC macro, & default to quiet

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.3/source/examples/cocoa/easygui/new-cocoa-bindings.lisp

    r7802 r11845  
    120120;;; debug macro for #/ funcalls:
    121121
    122 (defvar *debug-cocoa-calls* t)
     122(defvar *debug-cocoa-calls* nil)
     123;; Default changed to NIL by arthur, March 2009
     124
     125(defparameter *cocoa-pause* nil
     126"When *debug-cocoa-calls* is not NIL, then a numeric value of *cocoa-pause* causes
     127some sleep after every message produced by the DCC macro. Useful if something is
     128causing a crash. During development it happened to me :-(")
    123129
    124130(defmacro dcc (form)
     131;; Trace output identifies process, and may pause: arthur, March 2009
    125132  `(progn
    126133     (when *debug-cocoa-calls*
    127        (format *trace-output* "Calling ~A on ~S~%"
    128                ',(first form) (list ,@(rest form))))
     134       (format *trace-output* "[~a]Calling ~A on ~S~%"
     135               (ccl::process-serial-number ccl::*current-process*) ',(first form) (list ,@(rest form)))
     136       (when (and *cocoa-pause* (numberp *cocoa-pause*)) (sleep *cocoa-pause*)))
    129137     ,form))
    130138
Note: See TracChangeset for help on using the changeset viewer.