Custom Query (1030 matches)

(ccl:macroexpand-all '(flet (((setf foo) (value) bar)) body))

Error: Malformed :FUNCTION list: #1=(SETF FOO) is not a symbol in (#1#). While executing: (:INTERNAL CCL::CHECK-ALL-SYMBOLS CCL::CHECK-ENVIRONMENT-ARGS), in process listener(1).

Test case from Zach Beane.

Ideally, both the (logand #xf... ...) and (ldb (byte 32 0) ...) would open-code nicely in this case (on a 64-bit lisp, anyway).

(defun ldb-logand-diff (a b)
  (declare (type (unsigned-byte 32) a b))
  (let (x y)
    (setf x (logand #xFFFFFFFF (+ a b)))
    (setf y (ldb (byte 32 0) (+ b a)))
    (values x y)))

I could imagine hairing up the compiler macro on LDB, but maybe there's a better idea.

Compilation of the following function fails on ARM:

(defun fixnum-double (x)
  (declare (fixnum x))
  (* x 10d0))

That's because it uses FIXNUM->DOUBLE vinsn that has :single-float temp which is not supported by CCL::ALLOCATE-TEMPORARY-VREG.