lisp - 获取用户创建的变量列表

Question

我想获得我在 lisp session 中创建的所有变量的列表。我认为这应该可以通过查看 common-lisp-user 中的所有符号来实现。但是我怎样才能得到这样的列表呢？

Answer 1

要仅从 cl-user 获取绑定(bind)变量，您可以使用 do-symbols 迭代所有绑定(bind)符号并排除从其他包导入的符号:

(let ((external-symbols (mapcan (lambda (pkg)
                                  (let (rez)
                                    (do-symbols (s pkg rez)
                                      (push s rez))))
                                (package-use-list (find-package 'cl-user)))))
  (do-symbols (s 'cl-user)
    (when (and (boundp s)
               (not (member s external-symbols)))
      (print s))))