Custom Query (1030 matches)

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

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.

When entering an invalid symbol like "..." into the REPL, an internal error resulting from a typo is signalled.

Fix:

Index: l1-reader.lisp
===================================================================
--- l1-reader.lisp	(revision 8515)
+++ l1-reader.lisp	(working copy)
@@ -2407,7 +2407,7 @@
             (if (= len 1)
               (or dot-ok
                   (signal-reader-error stream "Dot context error in ~s." (%string-from-token tb)))
-              (signal-reader-error stream "Illegal symbol syntax in ~s. (%string-from-token tb)"))
+              (signal-reader-error stream "Illegal symbol syntax in ~s." (%string-from-token tb)))
             ;; Something other than a buffer full of dots.  Thank god.
             (let* ((num (if (null escapes)
                             (handler-case