emacs如何定义一个常量，setq也无法修改的那种

Emacs-Lisp
1

defconst 定义的 setq还是能修改。

2

不能zsbd

用closure或许能模拟常量,但是对于复合数据类型来说,还是可以修改内部结构

(defalias 'really-constant-var
    (let ((x (list 1 2 3)))
      (lambda () x)))

(really-constant-var)
;; => (1 2 3)

(setf (car (really-constant-var)) 3)
;; => 3

(really-constant-var)
;; => (3 2 3)
3

常量应该是在编译期确定/约束的，执行期在内存里怎么样都可以修改的。常见的动态语言里都没有常量这一概念吧。

4

26.1 之后可以这样：

(defvar const-var t)

(add-variable-watcher 'const-var #'const-var-watcher)

(defun const-var-watcher (sym _newval _op _where)
  (error "assignment of read-only variable ‘%s’" sym))

(setq const-var nil) ;; error
2 个赞
5 
(defvar const-var t)

(add-variable-watcher 'const-var #'const-var-watcher)

(defun const-var-watcher (sym _newval _op _where)
  (error "assignment of read-only variable ‘%s’" sym))

(defvaralias 'alias-to-const-var 'const-var)
;; Error ???
6

可以先加一个判断

7

参数 op 可以区分操作类型是 set 还是 defvaralias。

8

不想报错，就是想 setq 修改这个变量无效，还是原来的值。最多 warning 提示一下。用下面的好像并没有效果。

(defvar const-var t)
(add-variable-watcher 'const-var #'const-var-watcher)
(defun const-var-watcher (sym _newval _op _where)
  (when (string= "set" _op)
    (remove-variable-watcher 'package-archives #'const-var-watcher)
    (setq const-var t)
    (add-variable-watcher 'package-archives #'const-var-watcher)
    ;; (error "assignment of read-only variable ‘%s’" _op)
    ))

(setq const-var nil)
9

想要 const 又不报错。

就像是 try...catch 不处理，也不往上抛，静悄悄把问题掩盖起来。

10

本来 assign to constant在byte-compile时就会报warning啊??

11

warning 只是附带，可有可无的，主要是setq 修改不要起作用。

12

本来想重新定义 setq ，定义一个列表包含所有不想被修改的变量，然后 setq 先判断变量是否在上面的列表内，然后分别处理，弄了两个多小时没弄出来。大神帮我看看。

(defvar var-list '())
(defmacro setq (&rest settings)
  `(progn
     ,@(cl-loop for (var val) on settings by 'cddr
                unless (member var var-list)
                collect `(funcall #'set ',var ,val)
                )))

不用 setq 命名这个宏，可以用。但是用 setq 命名的话，cl-loop 里也调用 setq 导致超出限制了。

13

我研究一下 try…catch

14

警告就改成：

(defun const-var-watcher (sym _newval _op _where)
  (warn "assignment of read-only variable ‘%s’" sym))

我还是认为，既然是 const，就该报错。及早从源头杜绝错误，而不是把错误隐藏起来。

15

我是想在 site-start.el 里把 package-archives 里写死(还有其他一些变量).这样用其他的 emacs 配置就不用一个个设置了. warn 不能阻止修改值。

16

你前面知道改回去，这么快就忘了？

17

这个嘛，这个我试了没效果。

18

你说的 try…catch 应该可以，我查查。

19

请直接问这个问题. 不然别人会以为你在Elisp编程的时候出现了需要严格constant做约束的场景. (事实上你只是希望对不同配置pin一个变量)

答案是不能, 请自己分别找一下各个配置里允许你改package-archives的地方改上.(或许可以用prin1之类的东西批量生成)

  1. 这样改没啥用, setq并非set语法糖. setq可以修改词法作用域的变量,set则是专门用来修改全局变量的. 你用宏魔改setq,会破坏setq的语义,可能导致emacs整个都坏掉.

  2. 对于编译的配置(比如doom) setq在编译时已经变成字节码, 再捣鼓setq宏也不会有任何作用.

(byte-compile '(setq a 1))
;; => (byte-code "\301\211\207" [a 1] 2)
20

用宏改确实有问题，都不能启动了。直接改C代码的 setq 可以用了。 主要是 spacemacs 自己定义的很多变量，懒得看。 感谢各位。