[cffi-devel] setf in with-foreign-slots cannot work with LispWorks 5.0 (64bit Linux)

[Chun Tian (binghe)]

Hi, CFFI Developers

I'm using CFFI in my LispWorks 5.0.2 Enterprise Edition (64bit Linux). I found 
follow code can not compile:

(in-package :cffi)

(defcstruct c-type
  (c-long :long))

(defvar a (foreign-alloc 'c-type))

(with-foreign-slots ((c-long) a c-type)
  (setf c-long 0))

;;; Compiling file /home/binghe/src/lisp/cffi-test.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on 
;;; Source file recording is  on 
;;; Cross referencing is on
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 4)
; (DEFVAR CFFI::A)


**++++ Error in (TOP-LEVEL-FORM 5): 
  Type (SIGNED-BYTE 64) not supported by SYSTEM:TYPED-AREF.
; (TOP-LEVEL-FORM 6)
; *** 1 error detected, no fasl file produced.
;;; Compilation finished with 0 warnings, 1 error.

Is it a bug?

-- 
'()