Custom Query (1030 matches)

I recently modified the swank-client and swank-crew packages so that they load into ccl. When I execute (asdf:test-system 'swank-crew) I end up in the Clozure CL kernel debugger. Swank-crew uses threads and locks, so it's possible the code is triggering a Lisp system bug. To reproduce, check out the latest swank-client and swank-crew from their github repositories. Get all other dependencies from quicklisp. Finally, run (asdf:test-system 'swank-crew).

Lisp version: Version 1.8-r15286M (LinuxX8664)

The ARM version of ccl on my Raspberry Pi hangs when I run the swank-crew tests. The debugger does not appear.

Welcome to Clozure Common Lisp Version 1.9-dev-r15475M-trunk  (LinuxARM32)!

SIP-HASH> (defun barbar (x) (declare (type (unsigned-byte 64) x)) (+ x 1))
BARBAR
SIP-HASH> (typep 1084818905618843912 '(unsigned-byte 64))
T
SIP-HASH> (barbar 1084818905618843912)
; Evaluation aborted on #<TYPE-ERROR #x54D5B08E>.

Start a fresh CCL 1.6 (64bit Mac OS 10.6.7) and eval the following two forms; this will work as it should.

(defstruct foo a)

(defun baz () (flet ((foo-a (x y) (+ x y))) (foo-a 1 2)))

Now put the two forms in a file, and load the file. The result is a compiler error:

? (load "Users/brooks/Desktop/test.lisp")

Error: While compiling BAZ :

Extra args (1 2) for (LAMBDA (FOO) ...), in process Listener(6).

Alternatively, if the flet defined foo-a to have a single arg, then the compiler would not complain, but subsequently eval'ing (baz) will generate a type error:

? (baz)

Error: value 2 is not of the expected type FOO.