[已解决] 怎么改进delete-nth？

Emacs-Lisp
21

pop宏内部用的setq来搞，其实不是严格的destructive吧

22 
(let* ((a '(1 2 3)) (b (cdr a))) (pop a) (eq b a)) ;; t

并不能

23

爲什麼0不能？

(defmacro nd (n exp)
  (let ((b (gensym)))
    `(let ((,b ,exp))
       (setf (nthcdr ,n ,b) (nthcdr ,(1+ n) ,b))
       ,b)))
24 
(setq foo '(1 2 3 4))
;; -> (1 2 3 4)

(nd 0 foo)
;; ->  (2 3 4)

foo
;; -> (1 2 3 4)

因为

不可能破壞性去除一個列表的头。因為头沒了整个表也沒了。