创建一个函数库来改变任意全局变量

更新:如果我有一些函数需要改变作为函数参数传递的全局变量,有些函数可以通过传递全局符号来实现(就像将某些东西推到列表的一部分一样) ,但是其他函数将要求在传递符号时引用符号,这样我就可以访问符号值并改变外部变量,这是在函数中使用setq所必需的.这个问题基本上是为这些函数的用户创建一致的界面,而不会混淆它们,有时你传递符号,othertimes你传递引用的符号

通过使用具有相同用法的帮助程序来简化一堆函数的接口的示例方法,无论变异函数如何工作:

以下是我的技术的两个基本示例:

(defun push-something (global something)
  (push something global)
  global) ;; not necessary to return it here since the 
          ;; preceding line already does, but doing so 
          ;; for consistency with other functions and clarity

(defun push-cdr (global something)
  (push something (cdr global))
  global) ;; must return it if I am going to set the 
          ;; dynamic var to the result of this function, 
          ;; because the preceding line doesn't return the 
          ;; entire new result of the variable

;;; "dirty" function for mutating global variable using "clean" functions above:

(defun set-global (fn global &rest values)
  (setf (symbol-value global) (apply fn (copy-list (eval global)) values)))

在这最后一个,我要eval的global,因为它是引用与使用symbol-value,然后我copy-list让global不直接不慎被任何突变fn我选择(因为会出现这种情况有push-cdr可能是在更复杂的功能不平凡的).

输出:

CL-USER> (defparameter *g2* nil)
*G2*
CL-USER> (set-global #'push-something '*g2* 5)
(5)
CL-USER> *g2*
(5)
CL-USER> (set-global #'push-cdr '*g2* 99)
(5 99)
CL-USER> *g2*
(5 99)

...和相同的功能可以与使用*g1*或*g3*等全部通过接入功能set-global.

这是好的还是坏的风格,还是我错过了更好的方法来实现这个功能？