Custom Query (1030 matches)

This is compiling a fixnum test into the (incf y inc) for some reason.

? (defun test () (symbol-macrolet ((inc 0.5)) (loop with y = 0 do (incf y inc) while (< y 100))))
TEST
? (test)
> Error: value 0.5 is not of the expected type FIXNUM.
> While executing: TEST, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > 

? (make-random-state t)
> Error: Can't determine primary IP interface
> While executing: CCL::PRIMARY-IP-INTERFACE-ADDRESS, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.

System is Windows XP SP3. CCL is version 1.4.

An image build with

(ccl::save-application "~/lisp/projects/gc-bug"

:toplevel-function (lambda () (ccl::gc) (#exit 0)) :prepend-kernel "~/lisp/ccl/lx86cl64" :mode #o755)

hangs on (gc). I have tested this with the newest (as of 2009-10-30) code from svn, both in 32 and 64 bit mode, on Linux. -- Paul