在setf中使用条件位置

Question

假设我有两个变量，我想将值较小的变量设置为零。

有可能让它这样工作吗？

(setf a1 5)
(setf a2 6)  
(setf
  (if (< a1 a2) a1 a2)
  nil
)

Answer 1

如果你想做一些类似的事情，你可以使用(setf (symbol-value var) ...)

> (defparameter a1 5)
> (defparameter a2 6)
> (setf (symbol-value (if (< a1 a2) 'a1 'a2)) nil)
> a1
nil
> a2
6

要使语法更接近问题中的语法，可以为if定义一个setf-expander

(defsetf if (cond then else) (value)
     `(progn (setf (symbol-value (if ,cond ,then ,else)) ,value)
              ,value))

然后你就可以编写(setf (if (< a1 a2) 'a1 'a2) nil)了

但是，编写代码的最好方法可能是直接编写，在两个分支中都使用带有setf表单的if：

(if (< a1 a2) 
    (setf a1 nil)
    (setf a2 nil))

Answer 2

不是，因为if表单不是一个位置，因此不能setf。

Answer 3

尽管它本身并不是很有用，但您可能希望将其视为一个小提示：

(defun new-values (x y)
  (if (< x y) (values nil y) (values x nil)))

(setf a1 5)
(setf a2 6)  
(setf (values a1 a2) (new-values a1 a2))