Changeset 11565 for trunk/abcl/src/org/armedbear/lisp/inspect.lisp

Timestamp:

01/18/09 19:39:47 (12 years ago)

Author:

ehuelsmann

Message:

Fix thinko: it's not "unless", it's "when" ext:*inspector-hook* is bound to a non-NIL value.

File:

• trunk/abcl/src/org/armedbear/lisp/inspect.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/inspect.lisp

@@ -140 +140 @@
 
 (defun inspect (obj)
-  (unless ext:*inspector-hook*
+  (when ext:*inspector-hook*
     (funcall ext:*inspector-hook* obj))
   (when *inspected-object*