Custom Query (1030 matches)

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.

(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).

;;; symbol-function should signal an error of type type-error if symbol is not a symbol.

(defparameter *store* nil)

(defun (setf store) (newval)

(setf *store* newval))

(defun foo ()

(declare (optimize safety)) (symbol-function '(setf store))) ; Should signal an error

(foo) ; No error signaled!