[armedbear-cvs] r11565 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Jan 18 19:39:47 2009
New Revision: 11565

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

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

Modified: trunk/abcl/src/org/armedbear/lisp/inspect.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/inspect.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/inspect.lisp	Sun Jan 18 19:39:47 2009
@@ -139,7 +139,7 @@
       (format t "No object is being inspected.")))
 
 (defun inspect (obj)
-  (unless ext:*inspector-hook*
+  (when ext:*inspector-hook*
     (funcall ext:*inspector-hook* obj))
   (when *inspected-object*
     (push *inspected-object* *inspected-object-stack*))