From: espen <espen>
Date: Thu, 2 Feb 2006 22:48:53 +0000 (+0000)
Subject: Fixed a couple of CMUCL specific bugs
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/commitdiff_plain/e006ad3191ca52a8d24058ef4ab152e7b2f63e05

Fixed a couple of CMUCL specific bugs
---

diff --git a/examples/ginspect.lisp b/examples/ginspect.lisp
index 3ff76e4..3180984 100644
--- a/examples/ginspect.lisp
+++ b/examples/ginspect.lisp
@@ -20,7 +20,7 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-;; $Id: ginspect.lisp,v 1.5 2005-04-23 16:48:49 espen Exp $
+;; $Id: ginspect.lisp,v 1.6 2006-02-02 22:48:53 espen Exp $
 
 (in-package :gtk)
 
@@ -81,7 +81,7 @@ (defmethod decompose-describe-object ((object t))
     (if (equal parts (list object))
 	(values description nil nil)
       (values description named-p parts)))
-  (sb-impl::inspected-parts object))
+  #+sbcl(sb-impl::inspected-parts object))
 
 (defmethod decompose-describe-object ((object (eql t)))
   (values (call-next-method) nil nil))
@@ -109,7 +109,7 @@ (defmethod decompose-describe-object ((object symbol))
   (values 
    (call-next-method) t
    (cons "Name" (symbol-name object)) 
-   (cons "Package" (symbol-package objecy))
+   (cons "Package" (symbol-package object))
    (cons "Value" (if (boundp object)
 		     (symbol-value object)
 		   *ginspect-unbound-object-marker*))