Changeset 878

Timestamp:

Sep 25, 2004, 9:13:55 PM (16 years ago)

Author:

gb

Message:

Send backtrace info to typeout window on error (from Alex Crain.)

File:

• trunk/ccl/examples/cocoa-editor.lisp (modified) (1 diff)

trunk/ccl/examples/cocoa-editor.lisp

@@ -1332 +1332 @@
       (let* ((params (make-objc-instance 'ns:ns-array
                                          :with-objects paramptrs
-                                         :count 2)))
+                                         :count 2))
+             (*debug-io* *typeout-stream*))
+        (stream-clear-output *debug-io*)
+        (print-call-history :detailed-p nil)
         (send frame
               :perform-selector-on-main-thread