Fixed a couple of CMUCL specific bugs

diff --git a/examples/ginspect.lisp b/examples/ginspect.lisp
index 3ff76e4085f5255508fb9699ae245a4180166bb7..3180984150dcc0b4c46cc269e42c4c02e27592d5 100644 (file)
--- 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.
 
 ;; 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)
 
 
 (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)))
     (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))
 
 (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)) 
   (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*))
    (cons "Value" (if (boundp object)
                     (symbol-value object)
                   *ginspect-unbound-object-marker*))