Changeset 139

Timestamp:

Dec 19, 2003, 3:32:01 PM (21 years ago)

Author:

Gary Byers

Message:

Add (commented-out) DBG call.

File:

• trunk/ccl/examples/objc-support.lisp (modified) (1 diff)

trunk/ccl/examples/objc-support.lisp

@@ -100 +100 @@
   ;;; Create an NSLispException with a lispid that encapsulates
   ;;; this condition.
+  ;;;
+
+  #|(dbg (format nil "~a" c))|#
   (make-objc-instance 'ns-lisp-exception
                       :with-lisp-id (assign-id-map-id *condition-id-map* c)))