[Bese-devel] LispWorks and UCW

[Friedrich Dominicus]

"Marco Baringer" <mb at bese.it> writes:

>
> odd. apparently our provide-mopp-symbol isn't doing what it should. it
> would be very helpfull if you: 1) trace mopp::provide-mopp-symbol
Well this happens:
(trace mopp::provide-mopp-symbol)
Warning: Can't trace IT.BESE.ARNESI.MOPP::PROVIDE-MOPP-SYMBOL; it
doesn't name a traceable procedure.
Ok it seems I have to switch to the proper package:
(in-package :it.bese.arnesi.mopp%internals)
#<PACKAGE IT.BESE.ARNESI.MOPP%INTERNALS>

IT.BESE.ARNESI.MOPP%INTERNALS 42 : 4 > :top

IT.BESE.ARNESI.MOPP%INTERNALS 43 > (cl:trace provide-mopp-symbol)


> 2) reload mopp.lisp 
here's the output I got:
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:CLASS-DIRECT-SUBCLASSES
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:CLASS-DIRECT-DEFAULT-INITARGS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:STANDARD-READER-METHOD
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:FUNCALLABLE-STANDARD-INSTANCE-ACCESS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : NIL
Warning: Unimplemented MOP symbol: IT.BESE.ARNESI.MOPP:FUNCALLABLE-STANDARD-INSTANCE-ACCESS
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:COMPUTE-CLASS-PRECEDENCE-LIST
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:METHOD
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:CLASS-SLOTS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:CLASS-DEFAULT-INITARGS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:DIRECT-SLOT-DEFINITION-CLASS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:FINALIZE-INHERITANCE
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:SPECIALIZER-DIRECT-GENERIC-FUNCTIONS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:COMPUTE-APPLICABLE-METHODS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:CLASS-DIRECT-SLOTS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:COMPUTE-DISCRIMINATING-FUNCTION
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:SLOT-DEFINITION
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:BUILT-IN-CLASS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:INTERN-EQL-SPECIALIZER
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : NIL
Warning: Unimplemented MOP symbol: IT.BESE.ARNESI.MOPP:INTERN-EQL-SPECIALIZER
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:EQL-SPECIALIZER
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:STANDARD-METHOD
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:SPECIALIZER-DIRECT-METHODS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:SLOT-DEFINITION-LOCATION
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:EFFECTIVE-SLOT-DEFINITION-CLASS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:METHOD-LAMBDA-LIST
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:MAKE-METHOD-LAMBDA
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:CLASS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:COMPUTE-APPLICABLE-METHODS-USING-CLASSES
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : NIL
Warning: Unimplemented MOP symbol: IT.BESE.ARNESI.MOPP:COMPUTE-APPLICABLE-METHODS-USING-CLASSES
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:REMOVE-DIRECT-METHOD
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:MAP-DEPENDENTS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:UPDATE-DEPENDENT
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:SLOT-DEFINITION-INITARGS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:GENERIC-FUNCTION
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:ADD-METHOD
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:ACCESSOR-METHOD-SLOT-DEFINITION
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:GENERIC-FUNCTION-NAME
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:CLASS-PROTOTYPE
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:GENERIC-FUNCTION-METHODS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:SLOT-DEFINITION-TYPE
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:SLOT-DEFINITION-WRITERS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:METHOD-FUNCTION
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:METHOD-COMBINATION
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:CLASS-DIRECT-SUPERCLASSES
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:EQL-SPECIALIZER-OBJECT
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:SLOT-DEFINITION-ALLOCATION
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:SET-FUNCALLABLE-INSTANCE-FUNCTION
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:COMPUTE-EFFECTIVE-SLOT-DEFINITION
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:GENERIC-FUNCTION-METHOD-COMBINATION
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:READER-METHOD-CLASS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:FUNCALLABLE-STANDARD-CLASS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:METHOD-SPECIALIZERS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:REMOVE-DIRECT-SUBCLASS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:COMPUTE-EFFECTIVE-METHOD
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:ADD-DEPENDENT
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:MAKE-INSTANCE
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:COMPUTE-DEFAULT-INITARGS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:ALLOCATE-INSTANCE
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...


  >> SYMBOL         : IT.BESE.ARNESI.MOPP:STANDARD-CLASS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T

-- Seems to be ok! 

0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:REMOVE-DEPENDENT
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:ENSURE-GENERIC-FUNCTION
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:STANDARD-ACCESSOR-METHOD
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:SLOT-DEFINITION-NAME
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:ADD-DIRECT-SUBCLASS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:ENSURE-CLASS-USING-CLASS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:SLOT-DEFINITION-READERS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:REMOVE-METHOD
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:CLASS-PRECEDENCE-LIST
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:FORWARD-REFERENCED-CLASS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:WRITER-METHOD-CLASS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:VALIDATE-SUPERCLASS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:STANDARD-OBJECT
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:STANDARD-SLOT-DEFINITION
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:SLOT-VALUE-USING-CLASS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:FIND-METHOD-COMBINATION
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:EXTRACT-LAMBDA-LIST
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:SLOT-DEFINITION-DOCUMENTATION
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : NIL
Warning: Unimplemented MOP symbol: IT.BESE.ARNESI.MOPP:SLOT-DEFINITION-DOCUMENTATION
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:COMPUTE-SLOTS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:SPECIALIZER
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:DIRECT-SLOT-DEFINITION
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:SLOT-MAKUNBOUND-USING-CLASS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:SLOT-DEFINITION-INITFUNCTION
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:SLOT-BOUNDP-USING-CLASS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:METHOD-QUALIFIERS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:EXTRACT-SPECIALIZER-NAMES
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:EFFECTIVE-SLOT-DEFINITION
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:SLOT-DEFINITION-INITFORM
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:CLASS-FINALIZED-P
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:ADD-DIRECT-METHOD
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:STANDARD-GENERIC-FUNCTION
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:DIRECT-SLOT-DEFINITION-VALUE
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:GENERIC-FUNCTION-METHOD-CLASS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:STANDARD-INSTANCE-ACCESS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:METHOD-GENERIC-FUNCTION
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:STANDARD-EFFECTIVE-SLOT-DEFINITION
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:ENSURE-GENERIC-FUNCTION-USING-CLASS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:FUNCALLABLE-STANDARD-OBJECT
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:CLASS-NAME
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:STANDARD-DIRECT-SLOT-DEFINITION
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:STANDARD-WRITER-METHOD
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:GENERIC-FUNCTION-DECLARATIONS
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:METAOBJECT
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
0 PROVIDE-MOPP-SYMBOL > ...
  >> SYMBOL         : IT.BESE.ARNESI.MOPP:GENERIC-FUNCTION-LAMBDA-LIST
  >> IMPLEMENTATION : :LISPWORKS
0 PROVIDE-MOPP-SYMBOL < ...
  << VALUE-0 : T
;;; Compilation finished with 1 warning, 0 errors.



> 3) check what (find-symbol (string
> 'mopp::standard-class) :CLOS) returns.
That yields:

(find-symbol (string 'mopp:standard-class) :clos)
STANDARD-CLASS
:EXTERNAL

IT.BESE.ARNESI.MOPP%INTERNALS 48 : 1 > (find-symbol (string 'mopp:standard-class) :mopp)
IT.BESE.ARNESI.MOPP:STANDARD-CLASS
:EXTERNAL

Seems to be ok, but removing this line:
#+Lispworks
  (defmethod mopp:validate-superclass ((c %meta-class) (s
clos::standard-class)) t)

yields an error again:
**++++ Error in (METHOD
                 IT.BESE.ARNESI.MOPP:VALIDATE-SUPERCLASS
                 (IT.BESE.ARNESI.MOPP%INTERNALS::%META-CLASS
                  IT.BESE.ARNESI.MOPP:STANDARD-CLASS)): 

changing this line:
(defmethod mopp:validate-superclass ((c %meta-class) (s
mopp:standard-class)) t)

to
(defmethod mopp:validate-superclass ((c %meta-class) (s
mopp::standard-class)) t)

allows successfull compilation.....

I do not think this is ok...

Regards
Friedrich