From lam at tuxfamily.org  Tue Aug  9 09:50:55 2005
From: lam at tuxfamily.org (Nicolas Lamirault)
Date: Tue, 09 Aug 2005 11:50:55 +0200
Subject: [cl-prevalence-devel] problem with sbcl and cmucl
Message-ID: <87ek93a16o.fsf@no-log.org>


hi,
i  try to  load cl-prevalence  under sbcl  and cmucl  but i  have some
problems

i put s-xml and  cl-prevalence in asdf:*central-registry*, and load-op
cl-prevalence
the output error :


; compilation finished in 0:00:00
; compiling                                                        file
; "/home/nicolas/src/cl-prevalence/src/managed-prevalence.lisp"
; (written 14 FEB 2005 09:20:02 PM):
; compiling (IN-PACKAGE :CL-PREVALENCE)
; compiling (DEFMACRO EXECUTE-TRANSACTION ...)
; compiling (DEFCLASS OBJECT-WITH-ID ...)
; compiling (DEFGENERIC GET-ID ...)
; compiling (DEFUN GET-OBJECTS-ROOT-NAME ...)
; compiling (DEFUN GET-OBJECTS-SLOT-INDEX-NAME ...)
; compiling (DEFGENERIC FIND-ALL-OBJECTS ...)
; compiling (DEFMETHOD FIND-ALL-OBJECTS ...)
; compiling (DEFGENERIC FIND-OBJECT-WITH-ID ...)
; compiling (DEFMETHOD FIND-OBJECT-WITH-ID ...)
; compiling (DEFGENERIC FIND-OBJECT-WITH-SLOT ...);
; caught ERROR:
;   (during macroexpansion of (DEFGENERIC FIND-OBJECT-WITH-SLOT ...))
;   invalid (TEST #'EQUALP)
;   in the generic function lambda list (SYSTEM CLASS
;                                               SLOT
;                                               VALUE
;                                               &OPTIONAL
;                                               (TEST #'EQUALP))
;   See also:
;     The ANSI Standard, Section 3.4.2

; compiling (DEFMETHOD FIND-OBJECT-WITH-SLOT ...)
; compiling (DEFUN TX-CREATE-OBJECTS-SLOT-INDEX ...)
; compiling (DEFUN TX-REMOVE-OBJECTS-SLOT-INDEX ...)
; compiling (DEFUN ADD-OBJECT-TO-SLOT-INDEX ...)
; compiling (DEFUN REMOVE-OBJECT-FROM-SLOT-INDEX ...)
; compiling (DEFUN INDEX-ON ...)
; compiling (DEFUN DROP-INDEX-ON ...)
; compiling (DEFUN SLOT-VALUE-CHANGED-P ...)
; compiling (DEFUN TX-CREATE-OBJECT ...)
; compiling (DEFUN TX-DELETE-OBJECT ...)
; compiling (DEFUN TX-CHANGE-OBJECT-SLOTS ...)
; compiling (DEFUN TX-CREATE-ID-COUNTER ...)
; compiling (DEFMETHOD NEXT-ID ...)
; compiling (DEFGENERIC GET-PREFERENCE ...)
; compiling (DEFMETHOD GET-PREFERENCE ...)
; compiling (DEFUN TX-SET-PREFERENCE ...)
; compiling (DEFGENERIC ALL-PREFERENCES-KEYS ...)
; compiling (DEFMETHOD ALL-PREFERENCES-KEYS ...)

; /home/nicolas/src/cl-prevalence/src/managed-prevalence.fasl written
; compilation finished in 0:00:00
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {9C2FCB9}> on
   #<CL-SOURCE-FILE "managed-prevalence" {9C30119}>.

debugger invoked on a ASDF:COMPILE-FAILED in thread 13489:
  erred while invoking #<COMPILE-OP NIL {9C2FCB9}> on
  #<CL-SOURCE-FILE "managed-prevalence" {9C30119}>

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [RETRY ] Retry performing #<ASDF:COMPILE-OP NIL {9C2FCB9}> on
              #<ASDF:CL-SOURCE-FILE "managed-prevalence" {9C30119}>.
  1: [ACCEPT] Continue, treating #<ASDF:COMPILE-OP NIL {9C2FCB9}> on
              #<ASDF:CL-SOURCE-FILE "managed-prevalence" {9C30119}> as
  having
              been successful.
  2: [ABORT ] Exit debugger, returning to top level.

((SB-PCL::FAST-METHOD           ASDF:PERFORM          (ASDF:COMPILE-OP
ASDF:CL-SOURCE-FILE))
 #<unavailable argument>
 #<unavailable argument>
 #<ASDF:COMPILE-OP NIL {9C2FCB9}>
 #<ASDF:CL-SOURCE-FILE "managed-prevalence" {9C30119}>)
0] 



so problems comes from this function :

(defgeneric find-object-with-slot (system class slot value &optional test) 
  (:documentation "Find and return the  object in system of class with
  slot equal to value, null if not found")) 
                                                                                                                                                              
(defmethod  find-object-with-slot  ((system  prevalence-system)  class
slot value &optional (test #'equalp)) 
  "Find and  return the object in  system of class with  slot equal to
  value, null if not found" 
  (let* ((index-name (get-objects-slot-index-name class slot)) 
         (index (get-root-object system index-name))) 
    (if index 
        (find-object-with-id system class (gethash value index)) 
      (find value (find-all-objects system class) 
            :key  #'(lambda (object)  (slot-value object  slot)) :test
            test)))) 


by changing the defgeneric method in :

(defgeneric find-object-with-slot (system class slot value &optional test)
  (:documentation "Find and return the object in system of class with 
  slot equal to value, null if not found"))

problems is solved

after this there is no problems when i load-op cl-prevalence in SLIME
But in a unix shell :

; /home/nicolas/src/cl-prevalence/src/debug-prevalence.fasl written
; compilation finished in 0:00:00
; compiling                                                        file
; "/home/nicolas/src/cl-prevalence/src/managed-prevalence.lisp"
; (written 09 AUG 2005 11:10:13 AM):
; compiling (IN-PACKAGE :CL-PREVALENCE)
; compiling (DEFMACRO EXECUTE-TRANSACTION ...)
; compiling (DEFCLASS OBJECT-WITH-ID ...)
; compiling (DEFGENERIC GET-ID ...)
; compiling (DEFUN GET-OBJECTS-ROOT-NAME ...)
; compiling (DEFUN GET-OBJECTS-SLOT-INDEX-NAME ...)
; compiling (DEFGENERIC FIND-ALL-OBJECTS ...)
; compiling (DEFMETHOD FIND-ALL-OBJECTS ...)
; compiling (DEFGENERIC FIND-OBJECT-WITH-ID ...)
; compiling (DEFMETHOD FIND-OBJECT-WITH-ID ...)
; compiling (DEFGENERIC FIND-OBJECT-WITH-SLOT ...)
; compiling (DEFMETHOD FIND-OBJECT-WITH-SLOT ...)
; compiling (DEFUN TX-CREATE-OBJECTS-SLOT-INDEX ...)
; compiling (DEFUN TX-REMOVE-OBJECTS-SLOT-INDEX ...)
; compiling (DEFUN ADD-OBJECT-TO-SLOT-INDEX ...)
; compiling (DEFUN REMOVE-OBJECT-FROM-SLOT-INDEX ...)
; compiling (DEFUN INDEX-ON ...)
; compiling (DEFUN DROP-INDEX-ON ...)
; compiling (DEFUN SLOT-VALUE-CHANGED-P ...)
; compiling (DEFUN TX-CREATE-OBJECT ...)
; compiling (DEFUN TX-DELETE-OBJECT ...)
; compiling (DEFUN TX-CHANGE-OBJECT-SLOTS ...)
; compiling (DEFUN TX-CREATE-ID-COUNTER ...)
; compiling (DEFMETHOD NEXT-ID ...)
; compiling (DEFGENERIC GET-PREFERENCE ...)
; compiling (DEFMETHOD GET-PREFERENCE ...)
; compiling (DEFUN TX-SET-PREFERENCE ...)
; compiling (DEFGENERIC ALL-PREFERENCES-KEYS ...)
; compiling (DEFMETHOD ALL-PREFERENCES-KEYS ...)

; /home/nicolas/src/cl-prevalence/src/managed-prevalence.fasl written
; compilation finished in 0:00:01
; compiling   file  "/home/nicolas/src/cl-prevalence/src/sysdeps.lisp"
; (written 28 JUN 2004 01:54:49 PM):
; compiling (IN-PACKAGE  :CL-PREVALENCE)compilation aborted because of
; fatal error:
                                         READ failure in COMPILE-FILE:
                                           READER-ERROR  at  924 (line
; 26,     column    69)     on     #<SB-SYS:FD-STREAM    for     "file
; \"/home/nicolas/src/cl-prevalence/src/sysdeps.lisp\"" {95B6A41}>:
package "SB-BSD-SOCKETS" not found

; /home/nicolas/src/cl-prevalence/src/sysdeps.fasl written
; compilation finished in 0:00:00
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {9C2FD39}> on
   #<CL-SOURCE-FILE "sysdeps" {918FDB9}>.

debugger invoked on a ASDF:COMPILE-FAILED in thread 17853:
  erred while invoking #<COMPILE-OP NIL {9C2FD39}> on
  #<CL-SOURCE-FILE "sysdeps" {918FDB9}>

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [RETRY ] Retry performing #<ASDF:COMPILE-OP NIL {9C2FD39}> on
              #<ASDF:CL-SOURCE-FILE "sysdeps" {918FDB9}>.
  1: [ACCEPT] Continue, treating #<ASDF:COMPILE-OP NIL {9C2FD39}> on
              #<ASDF:CL-SOURCE-FILE  "sysdeps"  {918FDB9}>  as  having
  been
              successful.
  2: [ABORT ] Exit debugger, returning to top level.

((SB-PCL::FAST-METHOD           ASDF:PERFORM          (ASDF:COMPILE-OP
ASDF:CL-SOURCE-FILE))
 #<unavailable argument>
 #<unavailable argument>
 #<ASDF:COMPILE-OP NIL {9C2FD39}>
 #<ASDF:CL-SOURCE-FILE "sysdeps" {918FDB9}>)
0] 


add  dependencies  about  sb-bsd-sockets  in  asd  file  resolved  the
problems :

:depends-on (:sb-bsd-sockets :s-xml))


i have this problem only under SBCL
so perhaps, add #+sbcl in ASD file ... i don't know ...




-- 
Nicolas Lamirault