Custom Query (1030 matches)

UFFI uses internal CCL functions, some of which do not work any more:

%set-cstring assumed byte-wide characters

%find-foreign-record first looked for a structure definition, then for a union definition. For unions, it appears that the struct definition that was created for unions was always returned. I reversed the order (first look for a union definition, then for a structure definition for a given name) which fixes the problem for the UFFI test suite. This needs review.

Patch attached.

I'm trying to define a setf expander that itself is a macro which uses other macros. This does not work:

(in-package :cl-user)

(defvar *foo* 0)

(defmacro foo () '*foo*) (defmacro set-foo (new) `(setf *foo* ,new))

(defmacro set-bar (new)

(set-foo new))

(defsetf foo set-bar)

(incf (foo))

; The error is ; value #:G25 is not of the expected type NUMBER. ; The expansion of the (incf (foo)) form is ; (LET* ((#:G1 1) (#:G0 (+ (FOO) #:G1))) (SET-BAR #:G0))

It was reported (by David Brown on Feb 10,2008} that the following code crashes

(let ((shared1 (make-array 8 :element-type '(unsigned-byte 8)))
       (shared2 (make-array 8 :element-type '(unsigned-byte 8))))
   (ccl:with-pointer-to-ivector (%shared1 shared1)
     (ccl:with-pointer-to-ivector (%shared2 shared2)
       (%stack-block ((stacky 8))
         (format t "~A~%~A~%~A~%" %shared1 %shared2 stacky)))))

This should have been fixed in recent checkins, but a test case for the bug is here for the record.