[Openmcl-devel] kmrcl broken with openmcl-cvs

Thu May 19 15:21:10 PDT 2005

I'm aware that latest cvs is not supposed to be always working (or
compiling) so if what I say is
already known, just ignore it.

I'm running  0.14.3-050518a compiled with latest cvs without any problems
(also hemlock compiled without problems), and this is why I'm sending this,
if it failed to compile anything I wouldn't have bothered.

I've been working with cl-base64 lately and it needs kmrcl just for
testing purposes.

unfortunately there is an error while compiling sockets.lisp in kmrcl:
> Error in process listener(1): Unknown vinsn: CCL::NATURAL-SHIFT-RIGHT
> While executing: CCL::NEED-VINSN-TEMPLATE

grepping ccl source shows that natural-shift-right is there, but
probably not exported (or something like that).

I hope I've been useful.

This is the traceback from SLIME:

  0: (CCL::NEED-VINSN-TEMPLATE #<HASH-TABLE :TEST EQ size 463/687
#x621CB7E> #<DLL-HEADER  #x64CC4AE>)
  1: (CCL::SELECT-VINSN 'CCL::NATURAL-SHIFT-RIGHT #<HASH-TABLE :TEST EQ
size 463/687 #x621CB7E> '(#1=#<LREG 6 GPR {3}> #1# 24))
  2: (CCL::%EMIT-VINSN #<DLL-HEADER  #x64CC4AE>
'CCL::NATURAL-SHIFT-RIGHT #<HASH-TABLE :TEST EQ size 463/687 #x621CB7E>)
  3: (CCL::PPC2-NATURAL-SHIFT-RIGHT #<DLL-HEADER  #x64CC4AE> #<LREG 5
GPR [23]> 'NIL '(27 (UNSIGNED-BYTE 32) (24614 #<CCL::VAR #x64CD626>))
'(24617 24))
  4: (CCL::PPC2-ONE-LREG-FORM #<DLL-HEADER  #x64CC4AE> '(29940 (27
(UNSIGNED-BYTE 32) (24614 #)) (24617 24)) #<DLL-HEADER  #x64CC4AE>)
  5: (CCL::PPC2-TWO-TARGETED-REG-FORMS #<DLL-HEADER  #x64CC4AE> '(24617
255) #<LREG 3 GPR {23}> #<DLL-HEADER  #x64CC4AE> #<CCL::VAR #x64CCBBE>)
  6: (CCL::PPC2-BINARY-BUILTIN #<DLL-HEADER  #x64CC4AE> #<LREG 3 GPR
{23}> 'NIL 'CCL::LOGAND-2 '(24617 255) '(29940 (27 (UNSIGNED-BYTE 32)
(24614 #)) (24617 24)))
  7: (CCL::PPC2-ONE-LREG-FORM #<DLL-HEADER  #x64CC4AE> '(29838 (24617
255) (29940 (27 # #) (24617 24))) '(29838 (24617 255) (29940 (27 # #)
(24617 24))))
  8: (CCL::PPC2-SEQ-BIND-VAR #<DLL-HEADER  #x64CC4AE> '(#<CCL::VAR
#x64CCBFE> #<CCL::VAR #x64CCC3E> #<CCL::VAR #x64CCC7E>) '(29838 (24617
255) (29940 (27 # #) (24617 24))))
  9: (CCL::PPC2-LET #<DLL-HEADER  #x64CC4AE> #<LREG 0 GPR [23]> 16383
'(#<CCL::VAR #x64CCBBE> #<CCL::VAR #x64CCBFE> #<CCL::VAR #x64CCC3E>
#<CCL::VAR #x64CCC7E>) '(5135 (24614 #<CCL::VAR #x64CD596>) (22542 (# #
# #)) (4138 (24616 FORMAT) (# #) NIL)) 2162688 #<DLL-HEADER  #x64CC4AE>)
 10: (CCL::PPC2-LAMBDA #<DLL-HEADER  #x64CC4AE> #<LREG 0 GPR [23]> 16383
'(#<CCL::VAR #x64CD626>) 'NIL 'NIL '(NIL (#<CCL::VAR #x64CD596>) (NIL)
((#:|nil|)) #(:VALUES)) '(NIL NIL) '(28 (#<CCL::VAR #x64CCBBE>
#<CCL::VAR #x64CCBFE> #<CCL::VAR #x64CCC3E> #<CCL::VAR #x64CCC7E>)
((29838 # #) (29838 # #) (29838 # #) (236 # #)) (5135 (24614 #) (22542
#) (4138 # # NIL)) 2162688) 2162688)
 11: (CCL::PPC2-COMPILE 'T '(LAMBDA (KMRCL::IPADDR &KEY VALUES) (DECLARE
(CCL::GLOBAL-FUNCTION-NAME KMRCL::IPADDR-TO-DOTTED)) (DECLARE (TYPE #
KMRCL::IPADDR)) (BLOCK KMRCL::IPADDR-TO-DOTTED (LET # #)))
'KMRCL::IPADDR-TO-DOTTED)
 12: (CCL::COMPILE-NAMED-FUNCTION '(LAMBDA (KMRCL::IPADDR &KEY VALUES)
(DECLARE (CCL::GLOBAL-FUNCTION-NAME KMRCL::IPADDR-TO-DOTTED)) (DECLARE
(TYPE # KMRCL::IPADDR)) (BLOCK KMRCL::IPADDR-TO-DOTTED (LET # #)))
'KMRCL::IPADDR-TO-DOTTED #<CCL::LEXICAL-ENVIRONMENT #x64CD76E> 'NIL 'T
#<COMPILER-POLICY #x62B44CE> '#:LOAD-TIME-EVAL ':DARWINPPC32)
 13: (CCL::FCOMP-NAMED-FUNCTION '(LAMBDA (KMRCL::IPADDR &KEY VALUES)
(DECLARE (CCL::GLOBAL-FUNCTION-NAME KMRCL::IPADDR-TO-DOTTED)) (DECLARE
(TYPE # KMRCL::IPADDR)) (BLOCK KMRCL::IPADDR-TO-DOTTED (LET # #)))
'KMRCL::IPADDR-TO-DOTTED #<CCL::LEXICAL-ENVIRONMENT #x64B7EEE>)
 14: (CCL::FCOMP-LOAD-%DEFUN '(CCL::%DEFUN (NFUNCTION
KMRCL::IPADDR-TO-DOTTED (LAMBDA # # # #)) '"Convert from 32-bit integer
to dotted string.") 'NIL)
 15: (CCL::FCOMP-FORM #<CCL::LEXICAL-ENVIRONMENT #x64B7EEE>
'('KMRCL::IPADDR-TO-DOTTED) #<SVAR CCL::*FCOMP-INDENTATION* 645 #x62B3BF6>)
 16: (CCL::FCOMP-FORM-LIST '((EVAL-WHEN (:COMPILE-TOPLEVEL)
(CCL::NOTE-FUNCTION-INFO # # #)) (CCL::%DEFUN (NFUNCTION
KMRCL::IPADDR-TO-DOTTED #) '"Convert from 32-bit integer to dotted
string.") 'KMRCL::IPADDR-TO-DOTTED) #<CCL::LEXICAL-ENVIRONMENT
#x64B7EEE> ':NOT-COMPILE-TIME)
 17: (CCL::FCOMP-FORM #<CCL::LEXICAL-ENVIRONMENT #x64B7EEE> 'NIL #<SVAR
CCL::*FCOMP-INDENTATION* 645 #x62B3BF6>)
 18: (CCL::FCOMP-FORM #<CCL::LEXICAL-ENVIRONMENT #x64B7EEE>
#<CCL::LEXICAL-ENVIRONMENT #x64B7EEE>
"/Users/dialtone/.asdf-install-dir/site/kmrcl-1.84/sockets.lisp")
 19: (CCL::FCOMP-READ-LOOP
"/Users/dialtone/.asdf-install-dir/site/kmrcl-1.84/sockets.lisp"
#P"home:.asdf-install-dir;site;kmrcl-1.84;sockets.lisp"
':NOT-COMPILE-TIME #<SVAR CCL::*FCOMP-OUTPUT-LIST* 641 #x62B3CE6>)
 20: (CCL::FCOMP-FILE
"/Users/dialtone/.asdf-install-dir/site/kmrcl-1.84/sockets.lisp"
#P"home:.asdf-install-dir;site;kmrcl-1.84;sockets.lisp"
#<CCL::LEXICAL-ENVIRONMENT #x64B7EEE>)
 21: (CCL::%COMPILE-FILE
#P"/Users/dialtone/.asdf-install-dir/site/kmrcl-1.84/sockets.lisp"
#P"/Users/dialtone/.asdf-install-dir/site/kmrcl-1.84/sockets.dfsl" 'NIL
'NIL 'NIL 'NIL 'T 'T 'NIL 'NIL ':DEFAULT '(#<RESTART
CCL::RETRY-COMPILE-FILE #x14EF8EE> #<RESTART CCL::SKIP-COMPILE-FILE
#x14EF916>))
 22: (COMPILE-FILE
#P"/Users/dialtone/.asdf-install-dir/site/kmrcl-1.84/sockets.lisp")
 23: (#<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP
ASDF:CL-SOURCE-FILE)> '(NIL #<STANDARD-METHOD ASDF:PERFORM
(ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE)> . 5339923) 5339923)
 24: (CCL::%%BEFORE-AND-AFTER-COMBINED-METHOD-DCODE '(NIL
#<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE)> .
5339923))
 25: (CCL::%%STANDARD-COMBINED-METHOD-DCODE '(#<RESTART ASDF:RETRY
#x14EF9CE> #<RESTART ASDF:ACCEPT #x14EF9F6>) '((#<LOAD-OP NIL #x649EBFE>
. #<CL-SOURCE-FILE "sockets" #x64A04DE>) (#<LOAD-OP NIL #x649EBAE> .
#<CL-SOURCE-FILE "processes" #x64A010E>) (#<LOAD-OP NIL #x649EB5E> .
#<CL-SOURCE-FILE "console" #x6495C6E>) (#2=#<COMPILE-OP NIL #x649EF26> .
#1= . #<CL-SOURCE-FILE "listener" #x649FD3E>) (#<LOAD-OP NIL #x649EAEE>
. #1#) (#2# . #<CL-SOURCE-FILE "repl" #x649F93E>) (#2# . #<SYSTEM
"kmrcl" #x64982CE>) (#3=#<LOAD-OP NIL #x649EF6E> . #<CL-SOURCE-FILE
"ifstar" #x6497B06>) (#3# . #<CL-SOURCE-FILE "byte-stream" #x6497736>)
(#3# . #<CL-SOURCE-FILE "functions" #x6496F96>) ...))
 26: (ASDF:OPERATE 'ASDF:LOAD-OP 'KMRCL)

-- 
Valentino Volonghi aka Dialtone
Now Running MacOSX 10.4
Blog: http://vvolonghi.blogspot.com
http://weever.berlios.de