[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [spr2142] Inspecting PCL objects in Franz.
- To: firstname.lastname@example.org.COM
- Subject: Re: [spr2142] Inspecting PCL objects in Franz.
- From: email@example.com (Steve Haflich)
- Date: Fri, 26 Oct 1990 12:50:12 PDT
- Bh: append spr2142
- Cc: firstname.lastname@example.org, allegro-cl@ucbvax.Berkeley.EDU, commonloops.PARC@xerox.com
[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
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.
<cl> (use-package :pcl)
<cl> (defclass ship () (a b))
<cl> (setq b (make-instance 'ship))
<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|
 <cl> (type-of b)
 <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>
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 email@example.com know.