[Openmcl-cvs-notifications] r16243 - /trunk/source/cocoa-ide/inspector.lisp

gz at clozure.com gz at clozure.com
Thu Sep 25 17:20:14 UTC 2014


Author: gz
Date: Thu Sep 25 17:20:14 2014
New Revision: 16243

Log:
Make gui version of #'inspect pass the current package into the inspector

Modified:
    trunk/source/cocoa-ide/inspector.lisp

Modified: trunk/source/cocoa-ide/inspector.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/cocoa-ide/inspector.lisp	(original)
+++ trunk/source/cocoa-ide/inspector.lisp	Thu Sep 25 17:20:14 2014
@@ -222,7 +222,10 @@
     (#/reloadData (table-view wc))))
 =

 (defun ninspect (object)
-  (execute-in-gui #'(lambda () (make-inspector object))))
+  (let ((package *package*))
+    (execute-in-gui #'(lambda ()
+                        (let ((*package* package))
+                          (make-inspector object))))))
 =

 =

 #|



More information about the Openmcl-cvs-notifications mailing list