Custom Query (1030 matches)

Make the following two files, and start CCL (any Darwin OS, 32-bit or 64-bit, with or without the IDE).

The files should be as follows:

ccl:complex-test.lisp

(defun goo1 ()
  #c(0 -1))

~/ccl-init.lisp

(setf ccl::*fasl-save-definitions* t)
(compile-file "ccl:complex-test.lisp")
#+:64-BIT-HOST
(load "ccl:complex-test.dx64fsl")
#-:64-BIT-HOST
(load "ccl:complex-test.dx32fsl")

The following error occurs:

Error: bad opcode near position 341 in FASL file "/Applications/ccl/trunk/ccl/complex-test.dx64fsl" While executing: CCL::%BAD-FASL, in process Listener(4). Type cmd-/ to continue, cmd-. to abort, cmd-\ for a list of available restarts. If continued: Skip loading init file. Type :? for other options.

1 >

(defun run-server (host port out)
  (with-open-stream (server (ccl:make-socket :connect :passive
                                             :local-host host
                                             :local-port port
                                             :reuse-address t))
    (with-open-stream (stream (ccl:accept-connection server))
      (format out "~s~%" (read stream))
      (print :pong stream)
      (finish-output stream))))

(defun make-socket/retry (host port tries)
  (loop (handler-case (return (ccl:make-socket :remote-host host
                                               :remote-port port))
          (ccl:socket-creation-error (err)
            (unless (plusp (decf tries)) (error err))
            (format t "retry~%")
            (sleep 0.1)))))

(defun test (host port)
  (ccl:process-run-function "server" #'run-server
                            host port *standard-output*)
  ;(sleep 0.001)
  (with-open-stream (stream (make-socket/retry host port 5))
    (print :ping stream)
    (finish-output stream)
    (format t "~s~%" (read stream))))

(defun run ()
  (loop for port from 10000 to 20000 do (test "localhost" port)))

Failure happens within three iterations on my machine.

retry
:PING
:PONG
retry
> Error: on #<CCL::LISTENER-SOCKET #x1866FB36> : 
>        Bad file descriptor (error #9) during accept
> While executing: SOCKET-ERROR, in process server(3).

or

retry
:PING
:PONG
retry
> Error: Bad file descriptor (error #9) during socket creation operation in bind
> While executing: SOCKET-ERROR, in process server(3).

or

retry
:PING
:PONG
retry
:PING
:PONG
retry
> Error: Bad file descriptor (error #9) during socket creation operation in listen
> While executing: SOCKET-ERROR, in process server(4).

Adding the SLEEP call after PROCESS-RUN-FUNCTION prevents all errors.

Tested on 1.9-dev-r15576M-trunk (LinuxX8632). Failure on Darwin has happened but is very rare; I've only seen it twice.

I can work around this issue by handling/retrying, however CCL is the only implementation which requires this special attention.

I'm trying to run CCL on an Acer Iconia A500. That's an Android tablet but I run Debian (Squeeze) in a chroot environment. CCL starts but backtraces don't seem to work:

helmut@iconia:~/lisp/ccl$ uname -a
Linux iconia 2.6.36.3 #3 SMP PREEMPT Fri May 13 00:20:42 CST 2011 armv7l GNU/Linux
helmut@iconia:~/lisp/ccl$ rlwrap ./armcl
Welcome to Clozure Common Lisp Version 1.7-dev-r14869  (LinuxARM32)!
? (/ 1 0)
> Error: DIVISION-BY-ZERO detected
>        performing / on (1 0)
> While executing: CCL::%FIXNUM-TRUNCATE, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > b
Origin 270332994 is not in the stack of NIL
1 >

Is this a known problem of the ARM port? Has it something to do with the chroot tricks? Perhaps because /proc doesn't not working quite correclty with chroot?