Shibuya.lisp という名前の CL ユーティリティ集

Shibuya.lispという名前でCLのユーティリティ集を始めてみました - わだばLisperになる - cadr group

ということなので、fork して with-ca/dr をコミットし pull request しました。ちなみに with-ca/dr 次のようなマクロです。

(defmacro with-ca/dr (cons &body body)
  (let ((ca/dr (gensym)))
    `(let* ((,ca/dr ,cons)
            (car (car ,ca/dr))
            (cdr (cdr ,ca/dr)))
       ,@body)))

;; 使い方
(let ((x '(1 2 3)))
  (with-ca/dr x
    (list car cdr)))
;; => (1 (2 3))

Lisp2 なだけです。