[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [spr2142] Inspecting PCL objects in Franz.



[This question has been assigned the tracking identifier "spr2142".
Please refer to it in any followup communication.]

The inspector knows about pcl objects, so perhaps something is
corrupted in your image.  Here is my duplication of your test, plus
some extra forms to show where the inspector obtains its handler for
pcl instances:

   Allegro CL 3.1.13 [Sun3] (4/24/90)
   Copyright (C) 1985-1990, Franz Inc., Berkeley, CA, USA
   <cl> (require :pcl)

   ; Fast loading /fiona/cl2/lib/sun3/3.1.13/lib/code/pcl.fasl.

   T 
   <cl> (use-package :pcl)

   T 
   <cl> (defclass ship () (a b))

   NIL 
   <cl> (setq b (make-instance 'ship))

   #<SHIP 54737301> 
   <cl> (inspect b)

   ; Fast loading /fiona/cl2/lib/sun3/3.1.13/lib/code/inspect.fasl.
   SHIP instance @ #xb3bec1 = #<SHIP 54737301>
      0 Class --------> PCL::STANDARD-CLASS instance  = .long item.
      1 A ------------> The symbol :|Unbound Slot|
      2 B ------------> The symbol :|Unbound Slot|

   [1] <cl> (type-of b)

   PCL::IWMC-CLASS 
   [1] <cl> (describe 'pcl::iwmc-class)
   PCL::IWMC-CLASS is a SYMBOL
     It is unbound
     It is INTERNAL in the PCL package
     Its property list has these indicator/value pairs:
   :WINSPECTOR-FUNCTION        #<Function (:PROPERTY PCL::IWMC-CLASS :WINSPECTOR-FUNCTION) @ #x299171>
   :INSPECTOR-TYPE-FUNCTION    #<Function (:PROPERTY PCL::IWMC-CLASS :INSPECTOR-TYPE-FUNCTION) @ #x299199>
   :INSPECTOR-FUNCTION         #<Function (:PROPERTY PCL::IWMC-CLASS :INSPECTOR-FUNCTION) @ #x2991c1>
   EXCL::%STRUCTURE-DEFINITION  #<Defstruct-Description for PCL::IWMC-CLASS>
   [1] <cl> 

The interface between the inspector and pcl is in the file
pcl/excl-low, so you should have the source to examine.  If you need
any more help figuring this out let bugs@franz.com know.