代码之家 › 专栏 › 技术社区 › Rorschach

cl循环破坏性修改cons单元

elisp common-lisp lisp for-loop

Rorschach · 技术社区 · 7 年前

我想更新 cl-loop 建筑例如,假设我有以下内容

(setq lst '(("a" . "b") ("c" . "d")))
(cl-loop for (k . v) in lst
   when (string= k "b")
   do (setq v "f") ; how to destructively change this?
   and return t)

我想我需要使用 setcdr ,但认为这将需要在不破坏结构的情况下使用循环。我怀疑,如果没有指向那个对象的指针,我现在的方式是不可能的,但我不确定。

1 回复 | 直到 7 年前

jkiiski 7 年前

您可以有多个 for -循环中的子句:

(let ((alist (copy-tree '(("a" . "b") ("b" . "c") ("c" . "d") ("b" . "e")))))
  (cl-loop for cell in alist
           for (k . v) = cell
           when (string= k "b")
           do (setcdr cell "f")
           and return t)
  alist)
;=> (("a" . "b") ("b" . "f") ("c" . "d") ("b" . "e"))

推荐文章

ptb · Slime\Emacs comint在启动mpi进程时挂起

6 年前

Alexandru Popa · SBCL中奇怪的宏扩展错误

7 年前

MadPhysicist · 公共Lisp未定义分派字符

7 年前

Jacky · 编辑列表中的每个偶数索引元素

7 年前

Jorge · 在公共Lisp中初始化计数器变量

7 年前

Andrew S. · 类访问器的宏

7 年前

Rorschach · cl循环破坏性修改cons单元

7 年前

Rorschach · 宏在定义时将关键帧视为true

7 年前

reverload · 空调内部let工作不正常

7 年前

Robert Dodier · 如何在Common Lisp中忽略返回值

7 年前