[Bese-devel] ucw_dev + arnesi_dev on win32 / lispworks 4.45

[Mac Chan]

Hi,

I'm trying to load ucw_dev + arnesi_dev on win32 lispworks
professional and encounter some errors. Sorry I don't know enough to
figure out where the culprit is. So all I can do is to report it to
the list and see if anyone can help.

Thanks.

**++++ Error in (METHOD IT.BESE.UCW::PLACE (IT.BESE.UCW::PLACE)):
  No applicable methods for #<STANDARD-GENERIC-FUNCTION
IT.BESE.ARNESI::LEXICAL-VARIABLES 21C78E9A> with args
(#S(LEXICAL::ENVIRONMENT :VARIABLES ((#:KEYFORM17433 .
#:|dummy-lexical-variable|) (#:G17432 . #:|dummy-lexical-variable|)
(#:|internal-flet-name-for-NEXT-METHOD-P17431| .
#:|dummy-lexical-variable|)
(#:|internal-flet-name-for-CALL-NEXT-METHOD17430| .
#:|dummy-lexical-variable|) (#:G17428 . #:|dummy-lexical-variable|)
(#:G17427 . #:|dummy-lexical-variable|) (CLOS::.PV. .
#:|dummy-lexical-variable|) (CLOS::.ISL. . #:|dummy-lexical-variable|)
(PLACE . #:|dummy-lexical-variable|)) :FUNCTIONS ((NEXT-METHOD-P .
#:|internal-flet-name-for-NEXT-METHOD-P17431|) (CALL-NEXT-METHOD .
#:|internal-flet-name-for-CALL-NEXT-METHOD17430|)) :REMOTE-ENVIRONMENT
#<Environment venv (#<Venv 543708068  KEYFORM17433> #<Venv 543707612 
G17432> #<Venv 543706732  internal-flet-name-for-NEXT-METHOD-P17431>
#<Venv 543705444  internal-flet-name-for-CALL-NEXT-METHOD17430> #<Venv
543697988  G17428> #<Venv 543697748  G17427> #<Venv 543696476  .PV.>
#<Venv 543695908  .ISL.> #<Venv 543694604  PLACE>)  fenv
((NEXT-METHOD-P INLINE T) (NEXT-METHOD-P . #<COMPILER::FLET-INFO
(LAMBDA NIL (DECLARE (COMPILER::WEAK-LAMBDA-NAME NEXT-METHOD-P)) (NOT
(NOT #:G17427)))>) (CALL-NEXT-METHOD INLINE T) (CALL-NEXT-METHOD .
#<COMPILER::FLET-INFO (LAMBDA (&OPTIONAL #:G17429) (DECLARE
(COMPILER::WEAK-LAMBDA-NAME CALL-NEXT-METHOD) (SYSTEM::FLAG
:CALL-NEXT-METHOD) (OPTIMIZE (SAFETY 0) (DEBUG 0)
(HARLEQUIN-COMMON-LISP:FIXNUM-SAFETY 0) (SPEED 3))) (IF (ZEROP
(SYSTEM::ARGUMENTS-COUNT)) (CLOS::CALL-NEXT-METHOD-WITH-ORIGINAL NIL
(QUOTE (METHOD PLACE (PLACE))) #:G17427 NIL #:G17428)
(CLOS::CALL-NEXT-METHOD-WITH-ARGS (SYSTEM::ARGUMENTS-COUNT) (QUOTE
(METHOD PLACE (PLACE))) #:G17427 1 NIL NIL #:G17429)))>)) benv ((PLACE
. #<Block PLACE>) ((METHOD PLACE (PLACE)) . #<Block (METHOD PLACE
(PLACE))>) ((METHOD PLACE (PLACE)) . #<Block (METHOD PLACE (PLACE))>))
tenv NIL>))


**++++ Error in (METHOD (SETF IT.BESE.UCW::PLACE) (T IT.BESE.UCW::PLACE)):
  No applicable methods for #<STANDARD-GENERIC-FUNCTION
IT.BESE.ARNESI::LEXICAL-VARIABLES 21C78E9A> with args
(#S(LEXICAL::ENVIRONMENT :VARIABLES ((#:KEYFORM17442 .
#:|dummy-lexical-variable|) (#:G17441 . #:|dummy-lexical-variable|)
(#:|internal-flet-name-for-NEXT-METHOD-P17440| .
#:|dummy-lexical-variable|)
(#:|internal-flet-name-for-CALL-NEXT-METHOD17439| .
#:|dummy-lexical-variable|) (#:G17436 . #:|dummy-lexical-variable|)
(#:G17435 . #:|dummy-lexical-variable|) (#:G17434 .
#:|dummy-lexical-variable|) (CLOS::.PV. . #:|dummy-lexical-variable|)
(CLOS::.ISL. . #:|dummy-lexical-variable|) (PLACE .
#:|dummy-lexical-variable|) (VALUE . #:|dummy-lexical-variable|))
:FUNCTIONS ((NEXT-METHOD-P .
#:|internal-flet-name-for-NEXT-METHOD-P17440|) (CALL-NEXT-METHOD .
#:|internal-flet-name-for-CALL-NEXT-METHOD17439|)) :REMOTE-ENVIRONMENT
#<Environment venv (#<Venv 543709788  KEYFORM17442> #<Venv 543709332 
G17441> #<Venv 543708452  internal-flet-name-for-NEXT-METHOD-P17440>
#<Venv 543706076  internal-flet-name-for-CALL-NEXT-METHOD17439> #<Venv
543827716  G17436> #<Venv 543827604  G17435> #<Venv 543827276  G17434>
#<Venv 543826044  .PV.> #<Venv 543825476  .ISL.> #<Venv 543824132 
PLACE> #<Venv 543824052  VALUE>)  fenv ((NEXT-METHOD-P INLINE T)
(NEXT-METHOD-P . #<COMPILER::FLET-INFO (LAMBDA NIL (DECLARE
(COMPILER::WEAK-LAMBDA-NAME NEXT-METHOD-P)) (NOT (NOT #:G17434)))>)
(CALL-NEXT-METHOD INLINE T) (CALL-NEXT-METHOD . #<COMPILER::FLET-INFO
(LAMBDA (&OPTIONAL #:G17438 #:G17437) (DECLARE
(COMPILER::WEAK-LAMBDA-NAME CALL-NEXT-METHOD) (SYSTEM::FLAG
:CALL-NEXT-METHOD) (OPTIMIZE (SAFETY 0) (DEBUG 0)
(HARLEQUIN-COMMON-LISP:FIXNUM-SAFETY 0) (SPEED 3))) (IF (ZEROP
(SYSTEM::ARGUMENTS-COUNT)) (CLOS::CALL-NEXT-METHOD-WITH-ORIGINAL NIL
(QUOTE (METHOD (SETF PLACE) (T PLACE))) #:G17434 NIL #:G17435
#:G17436) (CLOS::CALL-NEXT-METHOD-WITH-ARGS (SYSTEM::ARGUMENTS-COUNT)
(QUOTE (METHOD (SETF PLACE) (T PLACE))) #:G17434 2 NIL NIL #:G17438
#:G17437)))>)) benv ((PLACE . #<Block PLACE>) ((METHOD (SETF PLACE) (T
PLACE)) . #<Block (METHOD (SETF PLACE) (T PLACE))>) ((METHOD (SETF
PLACE) (T PLACE)) . #<Block (METHOD (SETF PLACE) (T PLACE))>)) tenv
NIL>))
; (METHOD IT.BESE.UCW::CLONE-PLACE-VALUE (IT.BESE.UCW::PLACE))
; (DEFCONSTANT IT.BESE.UCW::+UNBOUND-VALUE+)
; (METHOD IT.BESE.UCW::SAVE-BACKTRACKED (IT.BESE.UCW::STANDARD-SESSION-FRAME))
; (METHOD IT.BESE.UCW::REINSTATE-BACKTRACKED
(IT.BESE.UCW::STANDARD-SESSION-FRAME))
; IT.BESE.UCW::CLONE-BACKTRACKS
; (METHOD IT.BESE.UCW:BACKTRACK (IT.BESE.UCW::SESSION-FRAME T))
; (METHOD IT.BESE.UCW:BACKTRACK-SLOT (IT.BESE.UCW::STANDARD-SESSION-FRAME T T))
; (TOP-LEVEL-FORM 3)
; *** 2 errors detected, no fasl file produced.
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL 221D3794> on
         #<ASDF:CL-SOURCE-FILE "backtracking" 21613AAC>.
Warning: COMPILE-FILE failed while performing #<ASDF:COMPILE-OP NIL 221D3794> on
         #<ASDF:CL-SOURCE-FILE "backtracking" 21613AAC>.
Error: erred while invoking #<ASDF:COMPILE-OP NIL 221D3794> on
#<ASDF:CL-SOURCE-FILE "backtracking" 21613AAC>
   1 (continue) Retry performing #<ASDF:COMPILE-OP NIL 221D3794> on
#<ASDF:CL-SOURCE-FILE "backtracking" 21613AAC>.
   2 Continue, treating #<ASDF:COMPILE-OP NIL 221D3794> on
#<ASDF:CL-SOURCE-FILE "backtracking" 21613AAC> as having
     been successful.
   3 Try loading \bese\ucw_dev\bin\utils.lisp again.
   4 Give up loading \bese\ucw_dev\bin\utils.lisp.
   5 Try loading another file instead of \bese\ucw_dev\bin\utils.lisp.
   6 Try loading /bese/ucw_dev/bin/start.lisp again.
   7 Give up loading /bese/ucw_dev/bin/start.lisp.
   8 Try loading another file instead of /bese/ucw_dev/bin/start.lisp.
   9 (abort) Return to level 0.
  10 Return to top loop level 0.

Type :b for backtrace, :c <option number> to proceed,  or :? for other options

CL-USER 9 : 1 >