Return values from macro

[mrkissinger]

When I use "values" to return data, in defun(), it worked as expected. But in defmacro(), it just returned the first value.

$ cat t.lisp
(defun t1 ()
  (values "aaa" "bbb"))

(multiple-value-bind (a b) (t1)
  (format t "~A ~A~%" a b)
  )

(defmacro t2 ()
  (values "ccc" "ddd"))

(multiple-value-bind (c d) (t2)
  (format t "~A ~A~%" c d)
  )
$ sbcl --script t.lisp
aaa bbb
ccc NIL
$

[Paul F. Dietz (paul-f-dietz)]

Not a bug. The value of the form (t2) is obtained by expanding the macro and replacing it with the first return value, and then evaluating that.