Custom Query (1030 matches)

This gets a compile time error rather than a compiler warning:

Welcome to Clozure Common Lisp Version 1.9-dev-r15341 (DarwinX8664)!
? (defstruct foo bar)
FOO
? (defun test () (foo-bar))
> Error: Required arguments in (CCL::STRUCTURE-TYPECHECK FOO) don't match lambda list (CCL::STRUCT CCL::TYPESPEC).
> While executing: (:INTERNAL CCL::NX1-COMPILE-LAMBDA), in process listener(1).
> Type :GO to continue, :POP to abort, :R for a list of available restarts.
> If continued: continue compilation ignoring this form
> Type :? for other options.
1 > 

I'm compiling a program using cffi 0.10.6 and iolib 0.7.3 (from quicklisp current). It works nicely on linux x86_64, but fails to launch on darwin x86 32bit.

Same problem in 1.8 and in 1.9-dev-r15354M-trunk. b

[pjb@galatea kuiper:0.0 src]$ make cli && ./lse
/data/languages/ccl/bin/ccl --no-init --load  generate-cli.lisp | tee /tmp/lse-build.log

/Users/pjb/.cache/common-lisp/ccl-1.9-f95-macosx-x86/home/pjb/src/git/pjb/nasium-lse/src/
To load "com.informatimago.lse.cli":
  Load 1 ASDF system:
    com.informatimago.lse.cli
; Loading "com.informatimago.lse.cli"
..................................................
[package com.informatimago.rdp]...................
..................................................
[package com.informatimago.logger]................
[package com.informatimago.signal]................
[package com.informatimago.environment]...........
[package com.informatimago.lse.os]................
[package com.informatimago.lse.byte-code].........
[package com.informatimago.lse.identifiers].......
[package com.informatimago.lse]...................
..................................................
..................................................
..................................................
[package trivial-garbage].
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/syscalls/pkgdcl.lisp"...........................
[package iolib.syscalls]
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/syscalls/unix-syscall-path-strings.lisp".........
; cc -m32 -I/Users/pjb/quicklisp/dists/quicklisp/software/cffi_0.10.6/ -fPIC -o /Users/pjb/.cache/common-lisp/ccl-1.9-f95-macosx-x86/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/syscalls/ffi-types-unix /Users/pjb/.cache/common-lisp/ccl-1.9-f95-macosx-x86/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/syscalls/ffi-types-unix.c
; /Users/pjb/.cache/common-lisp/ccl-1.9-f95-macosx-x86/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/syscalls/ffi-types-unix /Users/pjb/.cache/common-lisp/ccl-1.9-f95-macosx-x86/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/syscalls/ffi-types-unix.grovel-tmp.lisp
..
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/syscalls/conditions.lisp".........
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/syscalls/os-conditions-unix.lisp"...............
..........
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/syscalls/designators.lisp"...........
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/syscalls/early.lisp".......
; cc -m32 -I/Users/pjb/quicklisp/dists/quicklisp/software/cffi_0.10.6/ -bundle -fPIC -o /Users/pjb/.cache/common-lisp/ccl-1.9-f95-macosx-x86/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/syscalls/libiolib-syscalls.dylib /Users/pjb/.cache/common-lisp/ccl-1.9-f95-macosx-x86/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/syscalls/ffi-wrappers-unix.c
.
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/syscalls/ffi-functions-unix.lisp"..............................
.........
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/multiplex/pkgdcl.lisp"............................................
[package iolib.multiplex]
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/multiplex/utils.lisp"...
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/multiplex/timers.lisp".....
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/multiplex/queue.lisp".....
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/multiplex/scheduler.lisp"....
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/multiplex/fd-entry.lisp".....
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/multiplex/multiplexer.lisp".....
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/multiplex/event-loop.lisp"..........
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/multiplex/fd-wait.lisp"......
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/multiplex/backend-select.lisp"........
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/multiplex/backend-kqueue.lisp"....
....
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/multiplex/detect.lisp"...
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/streams/gray/pkgdcl.lisp".................................................
[package iolib.streams]
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/streams/gray/classes.lisp".....
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/streams/gray/conditions.lisp"...
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/streams/gray/buffer.lisp"......
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/streams/gray/fd-mixin.lisp"....
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/streams/gray/io-helpers.lisp"..........
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/streams/gray/gray-stream-methods.lisp".............
....
[package iolib.serial]; cc -m32 -I/Users/pjb/quicklisp/dists/quicklisp/software/cffi_0.10.6/ -fPIC -o /Users/pjb/.cache/common-lisp/ccl-1.9-f95-macosx-x86/Users/pjb/quicklisp/local-projects/iolib.termios/ffi-termios-types-unix /Users/pjb/.cache/common-lisp/ccl-1.9-f95-macosx-x86/Users/pjb/quicklisp/local-projects/iolib.termios/ffi-termios-types-unix.c
; /Users/pjb/.cache/common-lisp/ccl-1.9-f95-macosx-x86/Users/pjb/quicklisp/local-projects/iolib.termios/ffi-termios-types-unix /Users/pjb/.cache/common-lisp/ccl-1.9-f95-macosx-x86/Users/pjb/quicklisp/local-projects/iolib.termios/ffi-termios-types-unix.grovel-tmp.lisp
; cc -m32 -I/Users/pjb/quicklisp/dists/quicklisp/software/cffi_0.10.6/ -fPIC -o /Users/pjb/.cache/common-lisp/ccl-1.9-f95-macosx-x86/Users/pjb/quicklisp/local-projects/iolib.termios/ffi-termios-constants-unix /Users/pjb/.cache/common-lisp/ccl-1.9-f95-macosx-x86/Users/pjb/quicklisp/local-projects/iolib.termios/ffi-termios-constants-unix.c
; /Users/pjb/.cache/common-lisp/ccl-1.9-f95-macosx-x86/Users/pjb/quicklisp/local-projects/iolib.termios/ffi-termios-constants-unix /Users/pjb/.cache/common-lisp/ccl-1.9-f95-macosx-x86/Users/pjb/quicklisp/local-projects/iolib.termios/ffi-termios-constants-unix.grovel-tmp.lisp
..........
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/pathnames/pkgdcl.lisp".....................
[package iolib.pathnames]
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/pathnames/file-path.lisp"......
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/pathnames/file-path-unix.lisp".......
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/os/pkgdcl.lisp".....................
[package iolib.os]
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/os/os-unix.lisp".....................
; cc -m32 -I/Users/pjb/quicklisp/dists/quicklisp/software/cffi_0.10.6/ -fPIC -o /Users/pjb/.cache/common-lisp/ccl-1.9-f95-macosx-x86/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/os/ffi-types-unix /Users/pjb/.cache/common-lisp/ccl-1.9-f95-macosx-x86/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/os/ffi-types-unix.c
; /Users/pjb/.cache/common-lisp/ccl-1.9-f95-macosx-x86/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/os/ffi-types-unix /Users/pjb/.cache/common-lisp/ccl-1.9-f95-macosx-x86/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/os/ffi-types-unix.grovel-tmp.lisp
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/os/ffi-functions-unix.lisp".......
;Compiling "/Users/pjb/quicklisp/dists/quicklisp/software/iolib-0.7.3/src/os/create-process-unix.lisp".............
...
...............................................
[package trivial-gray-streams]....................
..................................................
[package com.informatimago.clext.gnu-ld-script]...
[package com.informatimago.lse.unix-terminal].....
[package com.informatimago.lse.cli].............
To load "com.informatimago.manifest":
  Load 1 ASDF system:
    com.informatimago.manifest
; Loading "com.informatimago.manifest"
[package com.informatimago.manifest].


Running a few tests.

Generating lse-ccl-darwin-apple-11.3.0-i386
ccl:save-application will exit.
awk '/Generating/{print $2}' < /tmp/lse-build.log | ( read executable ; rm -f lse ; ln -sf $executable lse )
Error during early application initialization:

The value NIL is not of the expected type ARRAY.
? for help
[74255] Clozure CL kernel debugger: B
current thread: tcr = 0x135820, native thread ID = 0x707, interrupts disabled


(#x0034BF80) #x0407096D : #<Function ARRAY-DATA-AND-OFFSET #x04070926> + 71
(#x0034BF90) #x04070665 : #<Function DEREFERENCE-BASE-STRING #x0407062E> + 55
(#x0034BFA0) #x04070275 : #<Function %CSTR-SEGMENT-POINTER #x040701BE> + 183
(#x0034BFC8) #x04085C35 : #<Function REOPEN-USER-LIBRARIES #x04085B56> + 223
(#x0034BFE0) #x04088155 : #<Function REFRESH-EXTERNAL-ENTRYPOINTS #x040880CE> + 135
(#x0034BFE8) #x04A38765 : #<Function RESTORE-LISP-POINTERS #x04A386D6> + 143
[74255] Clozure CL kernel debugger: :q
[74255] Clozure CL kernel debugger: [74255] Clozure CL kernel debugger: K
Killed: 9
[pjb@galatea kuiper:0.0 src]$ grep ccl Makefile
CCL            = /data/languages/ccl/bin/ccl --no-init
[pjb@galatea kuiper:0.0 src]$ /data/languages/ccl/bin/ccl --version
Version 1.9-dev-r15354M-trunk  (DarwinX8632)

See ​http://clozure.com/pipermail/openmcl-devel/2012-May/013568.html

I was unable to reproduce this after doing:

? (progn
    (egc nil)
    (set-lisp-heap-gc-threshold (ash 512 20))
    (gc))

before calling (RUN), even when TEST/RUN created threads and RUN ran for 2500 iterations instead of 25. That suggests pretty strongly that this is a GC bug (or that the code involved in BIGNUM * FIXNUM multiplication doesn't follow register conventions correctly and that the failure occurs when such code is interrupted by GC in another thread.)

When a failure occurs, several words (in the "middle" of the result bignum) have incorrect values; the bignum is of the correct size and the words near both ends seem to be correct. This is also consistent with GC-related memory corruption.