[cl-containers-devel] error when using CMUCL &In-Reply-To=A0057F80-13E0-48EF-A89D-A32038025167 at m

[Gary King]

On Dec 14, 2006, at 6:14 PM, christoph.oppawsky at t-online.de wrote:

> Hi Gary,
>
> I finally might have some good news for you. After some attempts I  
> moved.

Hi Christoph,

This is great! Thanks for finding and fiddling. I'll incorporate this  
and look over the warniings and get out a new version.


>
>
> ;;;
> ----------code- 
> snippet-------------------------------------------------
>
> (defclass* key-value-iteratable-container-mixin
> (iteratable-container-mixin)
>   ())
>
> ;;;
> ---------------------------------------------------------------------- 
> -
>
> from BASIC-OPERATIONS.LISP to CONTAINERS.LISP, just after
>
> ;;; ----------code-snippet-from-CONTAINERS.LISP
> ---------------------------
>
> (defclass* iteratable-container-mixin (searchable-container-mixin)
>   ())
>
> [... inserted here ...]
>
> ;;;
> ---------------------------------------------------------------------- 
> -
>
> The error is gone, leaving me alone with some warnings
>
> ;;; ----------slime
> compiler-notes-----------------------------------------
> -+  Warnings (11)
>  |-- --> PROGN PCL::LOAD-DEFMETHOD PCL::LOAD-DEFMETHOD LIST* LIST*
> LAMBDA
>  |   --> FUNCTION MACROLET PCL::FAST-LEXICAL-METHOD-FUNCTIONS
>  |   --> PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
>  |   --> PCL::BIND-LEXICAL-METHOD-FUNCTIONS PCL::CALL-NEXT-METHOD-BIND
> LET
>  |   --> FLET PCL::WITH-REBOUND-ORIGINAL-ARGUMENTS LET PCL::BIND-ARGS
> LET*
>  |   --> PCL::PV-BINDING PCL::PV-BINDING1 PCL::PV-ENV LET LET BLOCK
> PROGN
>  |   --> PCL::PV-SET-SLOT-VALUE LET THE
>  |   ==>
>  |   ;   NIL
>  |   The binding of PCL::.VALUE. is not a (VALUES DLIST-CONTAINER-NODE
> &REST T):
>  |     NIL
>  |-- --> PROGN PCL::LOAD-DEFMETHOD PCL::LOAD-DEFMETHOD LIST* LIST*
> LAMBDA
>  |   --> FUNCTION MACROLET PCL::FAST-LEXICAL-METHOD-FUNCTIONS
>  |   --> PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
>  |   --> PCL::BIND-LEXICAL-METHOD-FUNCTIONS PCL::CALL-NEXT-METHOD-BIND
> LET
>  |   --> FLET PCL::WITH-REBOUND-ORIGINAL-ARGUMENTS LET PCL::BIND-ARGS
> LET*
>  |   --> PCL::PV-BINDING PCL::PV-BINDING1 PCL::PV-ENV LET LET BLOCK
> PROGN
>  |   --> PCL::PV-SET-SLOT-VALUE LET THE
>  |   ==>
>  |   ;   NIL
>  |   The binding of PCL::.VALUE. is not a (VALUES DLIST-CONTAINER-NODE
> &REST T):
>  |     NIL
>  |-- COMPILE-FILE warned while performing #<COMPILE-OP NIL {58320E35}>
> on
>  |   #<CL-SOURCE-FILE "lists" {585CB78D}>.
>  |-- COMPILE-FILE failed while performing #<COMPILE-OP NIL {58320E35}>
> on
>  |   #<CL-SOURCE-FILE "lists" {585CB78D}>.
>  |-- --> PROGN PCL::LOAD-DEFMETHOD PCL::LOAD-DEFMETHOD LIST* LIST*
> LAMBDA
>  |   --> FUNCTION MACROLET PCL::FAST-LEXICAL-METHOD-FUNCTIONS
>  |   --> PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
>  |   --> PCL::BIND-LEXICAL-METHOD-FUNCTIONS PCL::CALL-NEXT-METHOD-BIND
> LET
>  |   --> FLET PCL::WITH-REBOUND-ORIGINAL-ARGUMENTS LET PCL::BIND-ARGS
> LET*
>  |   --> PCL::PV-BINDING PCL::PV-BINDING1 PCL::PV-ENV LET LET
>  |   --> PCL::SLOT-VECTOR-OR-NIL WHEN COND IF PROGN IF
>  |   --> PCL::FSC-INSTANCE-SLOTS KERNEL:%FUNCALLABLE-INSTANCE-INFO
>  |   ==>
>  |   ;   C::OBJECT
>  |   Result is a VECTOR, not a (VALUES &OPTIONAL FUNCTION &REST T).
>  |-- --> PROGN PCL::LOAD-DEFMETHOD PCL::LOAD-DEFMETHOD LIST* LIST*
> LAMBDA
>  |   --> FUNCTION MACROLET PCL::FAST-LEXICAL-METHOD-FUNCTIONS
>  |   --> PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
>  |   --> PCL::BIND-LEXICAL-METHOD-FUNCTIONS PCL::CALL-NEXT-METHOD-BIND
> LET
>  |   --> FLET PCL::WITH-REBOUND-ORIGINAL-ARGUMENTS LET PCL::BIND-ARGS
> LET*
>  |   --> PCL::PV-BINDING PCL::PV-BINDING1 PCL::PV-ENV LET LET
>  |   --> PCL::SLOT-VECTOR-OR-NIL WHEN COND IF PROGN IF
>  |   --> PCL::FSC-INSTANCE-SLOTS KERNEL:%FUNCALLABLE-INSTANCE-INFO
>  |   ==>
>  |   ;   C::OBJECT
>  |   Result is a VECTOR, not a (VALUES &OPTIONAL FUNCTION &REST T).
>  |-- --> PROGN PCL::LOAD-DEFMETHOD PCL::LOAD-DEFMETHOD LIST* LIST*
> LAMBDA
>  |   --> FUNCTION MACROLET PCL::FAST-LEXICAL-METHOD-FUNCTIONS
>  |   --> PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
>  |   --> PCL::BIND-LEXICAL-METHOD-FUNCTIONS PCL::CALL-NEXT-METHOD-BIND
> LET
>  |   --> FLET PCL::WITH-REBOUND-ORIGINAL-ARGUMENTS LET PCL::BIND-ARGS
> LET*
>  |   --> PCL::PV-BINDING PCL::PV-BINDING1 PCL::PV-ENV LET LET
>  |   --> PCL::SLOT-VECTOR-OR-NIL WHEN COND IF PROGN IF
>  |   --> PCL::FSC-INSTANCE-SLOTS KERNEL:%FUNCALLABLE-INSTANCE-INFO
>  |   ==>
>  |   ;   C::OBJECT
>  |   Result is a VECTOR, not a (VALUES &OPTIONAL FUNCTION &REST T).
>  |-- --> PROGN PCL::LOAD-DEFMETHOD PCL::LOAD-DEFMETHOD LIST* LIST*
> LAMBDA
>  |   --> FUNCTION MACROLET PCL::FAST-LEXICAL-METHOD-FUNCTIONS
>  |   --> PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
>  |   --> PCL::BIND-LEXICAL-METHOD-FUNCTIONS PCL::CALL-NEXT-METHOD-BIND
> LET
>  |   --> FLET PCL::WITH-REBOUND-ORIGINAL-ARGUMENTS LET PCL::BIND-ARGS
> LET*
>  |   --> PCL::PV-BINDING PCL::PV-BINDING1 PCL::PV-ENV LET LET
>  |   --> PCL::SLOT-VECTOR-OR-NIL WHEN COND IF PROGN IF
>  |   --> PCL::FSC-INSTANCE-SLOTS KERNEL:%FUNCALLABLE-INSTANCE-INFO
>  |   ==>
>  |   ;   C::OBJECT
>  |   Result is a ARRAY, not a (VALUES &OPTIONAL FUNCTION &REST T).
>  |-- --> PROGN PCL::LOAD-DEFMETHOD PCL::LOAD-DEFMETHOD LIST* LIST*
> LAMBDA
>  |   --> FUNCTION MACROLET PCL::FAST-LEXICAL-METHOD-FUNCTIONS
>  |   --> PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
>  |   --> PCL::BIND-LEXICAL-METHOD-FUNCTIONS PCL::CALL-NEXT-METHOD-BIND
> LET
>  |   --> FLET PCL::WITH-REBOUND-ORIGINAL-ARGUMENTS LET PCL::BIND-ARGS
> LET*
>  |   --> PCL::PV-BINDING PCL::PV-BINDING1 PCL::PV-ENV LET LET
>  |   --> PCL::SLOT-VECTOR-OR-NIL WHEN COND IF PROGN IF
>  |   --> PCL::FSC-INSTANCE-SLOTS KERNEL:%FUNCALLABLE-INSTANCE-INFO
>  |   ==>
>  |   ;   C::OBJECT
>  |   Result is a ARRAY, not a (VALUES &OPTIONAL FUNCTION &REST T).
>  |-- COMPILE-FILE warned while performing #<COMPILE-OP NIL {58320E35}>
> on
>  |   #<CL-SOURCE-FILE "compatibility" {585CB7DD}>.
>  `-- COMPILE-FILE failed while performing #<COMPILE-OP NIL {58320E35}>
> on
>      #<CL-SOURCE-FILE "compatibility" {585CB7DD}>.
> ;;;
> ---------------------------------------------------------------------- 
> -
>
> Everything gets loaded, I can go on with loading CL-GRAPH and generate
> some
> graphs.
>

--
Gary Warren King, metabang.com
Cell: (413) 885 9127
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM