Changeset 6669

Timestamp:

Jun 3, 2007, 3:05:17 AM (17 years ago)

Author:

Gary Byers

Message:

Don't (dbg) on nserror.
Do invoke process-debug-condition.

File:

• branches/ide-1.0/ccl/examples/objc-support.lisp (modified) (3 diffs)

branches/ide-1.0/ccl/examples/objc-support.lisp

@@ -218 +218 @@
   ;;; this condition.
 
-   (dbg (format nil "~a" c))
+  ;; (dbg (format nil "~a" c))
   ;;(#_NSLog #@"Lisp exception: %@" :id (%make-nsstring (format nil "~a" c)))
   (make-instance 'ns-lisp-exception :condition c))
@@ -246 +246 @@
   ;; as the canonical return value register and used to pass the
   ;; first argument on PPC.)
+  (process-debug-condition *current-process* condition (%get-frame-ptr))
   (let* ((addr (%reference-external-entry-point (load-time-value (external "__NSRaiseError")))))
     (if (typep addr 'fixnum)
@@ -271 +272 @@
   ;; original return address in the %xmm0 slot, and force a return to
   ;; the trampoline code above.
+  (process-debug-condition *current-process* condition (%get-frame-ptr))
   (setf (%get-ptr return-value-pointer -8) (ns-exception condition)
         (%get-ptr return-value-pointer -16) (%get-ptr return-address-pointer 0)