[Clorb-devel] clorb-0.2 on CMUCL and CLISP

[Brad C. <cha...@ar...>]

Hello;
	I've been working on trying to get the hello-world example client
and server (thanks incredibly much for the simple example to work with!)
running on CMUCL and CLISP, but have not been having much luck :-<. I
finally got myself stuck where I can't move any further, so I thought I
would ask here. I apologize in advance if the problems are due to my
inexperience with lisp.

CMUCL
-----
I thought I would start with this since I have had the most luck here so far.
I have been successful at starting up a server without any errors, but when
I open up a new interpreter and try to run a client against the server, I
get the following error in the client:

* (hello-client :file "hw.ior")
Error in function CLORB::UNMARSHAL-GIOP-HEADER:  Not a GIOP message

Restarts:
  0: [ABORT] Return to Top-Level.

Debug  (type H for help)

(CLORB::UNMARSHAL-GIOP-HEADER
 #S(CLORB::BUFFER
      :OCTETS #(0 0 0 0 0...)
      :POSITION 1
      :BYTE-ORDER 1
      :START-POS 0))
Source:
; File: /usr/home/chapmanb/clorb-0.2/clorb-unmarshal.lisp
(ERROR "Not a GIOP message")
0] bac

0: (CLORB::UNMARSHAL-GIOP-HEADER
    #S(CLORB::BUFFER
         :OCTETS #(0 0 0 0 0...)
         :POSITION 1
         :BYTE-ORDER 1
         :START-POS 0))
1: (CLORB::CORBA-GET-NEXT-RESPONS-1 #<Stream for descriptor 5> :WAIT T)
2: (CLORB::REQUEST-GET-RESPONSE #<OMG.ORG/CORBA:REQUEST {922C9C5}> NIL)
3: (CLORB::REQUEST-INVOKE #<OMG.ORG/CORBA:REQUEST {922C9C5}> #<unused-arg>)
4: (CLORB::OBJECT-INTERFACE
    #<OMG.ORG/CORBA:PROXY "IDL:Hello/World:1.0" @ localhost:4711>)
5: (CLORB::OBJECT-OPDEF
    #<OMG.ORG/CORBA:PROXY "IDL:Hello/World:1.0" @ localhost:4711>
    "greet")
6: (CLORB::OBJECT-CREATE-REQUEST
    #<OMG.ORG/CORBA:PROXY "IDL:Hello/World:1.0" @ localhost:4711>
    "greet"
    NIL)
7: (CLORB:INVOKE #<OMG.ORG/CORBA:PROXY "IDL:Hello/World:1.0" @ localhost:4711>
                 "greet")
8: (INTERACTIVE-EVAL (HELLO-CLIENT :FILE "hw.ior"))
9: (COMMON-LISP::%TOP-LEVEL)
10: (COMMON-LISP::RESTART-LISP)

The server also crashes when this occurs, with the following backtrace:

* (run-hello :file "hw.ior")
Compiling LAMBDA (#:G1518 #:G1519 #:G1520 #:G1521 #:G1524 #:G1525):
Compiling Top-Level Form:
;;; Acception tcp connection: 6
;;  - to stream: #<Stream for descriptor 6>
;; Receive (60)

Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER:
   -1 is not of type (MOD 536870911)

Restarts:
  0: [ABORT] Return to Top-Level.

Debug  (type H for help)

(CLORB::UNMARSHAL-STRING
 #S(CLORB::BUFFER
      :OCTETS #(71 73 79 80 1...)
      :POSITION 32
      :BYTE-ORDER 1
      :START-POS 0))
Source:
; File: /usr/home/chapmanb/clorb-0.2/clorb-unmarshal.lisp
(MAKE-STRING LEN)
0] bac

0: (CLORB::UNMARSHAL-STRING
    #S(CLORB::BUFFER
         :OCTETS #(71 73 79 80 1...)
         :POSITION 32
         :BYTE-ORDER 1
         :START-POS 0))
1: (CLORB::DECODE-REQUEST
    #S(CLORB::SERVER-REQUEST
         :STREAM #<Stream for descriptor 6>
         :BUFFER #S(CLORB::BUFFER
                      :OCTETS #
                      :POSITION 32
                      :BYTE-ORDER 1
                      :START-POS 0)
         :MSGTYPE 0
         :IIOP-VERSION NIL
         :SERVICE-CONTEXT #()
         ...))
2: (CLORB::GET-MESSAGE #<Stream for descriptor 6>)
3: (CLORB::|(PCL::FAST-METHOD HANDLE-STREAM (CLORB-ADAPTOR T))| #<unused-arg>
                                                                #<unused-arg>
                                                                #<unused-arg>
                                                                #<Stream for de
scriptor 6>)
4: (CLORB::|(PCL::FAST-METHOD SERVER-FALLBACK (CLORB-ADAPTOR))| #<unused-arg>
                                                                #<unused-arg>
                                                                #<CLORB::CLORB-
ADAPTOR {922FEAD}>)
5: (CLORB::ORB-WAIT #<OMG.ORG/CORBA:ORB {922F65D}> NIL)
6: (CLORB::|(PCL::FAST-METHOD OMG.ORG/FEATURES:RUN (ORB))| #<unused-arg>
                                                           #<unused-arg>
                                                           #<OMG.ORG/CORBA:ORB
{922F65D}>
                                                           NIL)
7: (INTERACTIVE-EVAL (RUN-HELLO :FILE "hw.ior"))
8: (COMMON-LISP::%TOP-LEVEL)
9: (COMMON-LISP::RESTART-LISP)

clisp
-----
On clisp, I get an error immediately upon trying to start up the server,
and it gives the following trace.

[7]> (run-hello :file "hw.ior")

*** - UNIX error 49 (EADDRNOTAVAIL): Can't assign requested address
1. Break [8]> Backtrace-1

- NIL
- #<SYSTEM::SIMPLE-OS-ERROR #x203950D1>
frame binding variables (~ = dynamically):
  | ~ SYSTEM::*PRIN-STREAM* <--> #<UNBOUND>
- #<SYSTEM::SIMPLE-OS-ERROR #x203950D1>
- 4711
- #<COMPILED-CLOSURE CLORB::OPEN-PASSIVE-SOCKET>
- 4711
- #<COMPILED-CLOSURE CLORB::SETUP-SERVER>
- #<OMG.ORG/CORBA:ORB #x203799A5>
- #<COMPILED-CLOSURE CLORB::ROOT-POA>
- #<OMG.ORG/CORBA:ORB #x203799A5>
- #<COMPILED-CLOSURE CLORB::ROOT-POA>
- ("RootPOA" . #<COMPILED-CLOSURE CLORB::ROOT-POA>)
- "RootPOA"
- #<COMPILED-CLOSURE #:TOP-LEVEL-FORM-21-2-1-1>
- ("RootPOA")
- #<OMG.ORG/CORBA:ORB #x203799A5>
- #<OMG.ORG/CORBA:ORB #x203799A5>
- #<COMPILED-CLOSURE SETUP-HELLO>
- NIL
- "hw.ior"
- SETUP-HELLO
- #<OMG.ORG/CORBA:ORB #x203799A5>
- #<COMPILED-CLOSURE RUN-HELLO>
- (:FILE "hw.ior")
- #<COMPILED-CLOSURE RUN-HELLO>
EVAL frame for form (RUN-HELLO :FILE "hw.ior")
- #<SYNONYM-STREAM *TERMINAL-IO*>
- #<SYNONYM-STREAM *TERMINAL-IO*>

Could anyone offer any advice about what exactly is going on in either
case, or suggest further paths that I could try? Thanks in advance for any
help!

Brad