[lisp] Мемоизация

Что-то мне кажется что это не CL а Clojure.
Если я прав, то прямо из Programming Clojure пример:
(use 'clojure.contrib.memoize)
(defn demo-memoize []
(time
(dorun
(binding [slow-double (memoize slow-double)]
(calls-slow-double)))))

Говоря "лисп" лисперы подразумевают либо все семейство языков, начиная с Emacs Lisp и заканчивая Arc, либо Common Lisp.
Твой пост - о мутных деталях реализации встроенной мемоизации в Clojure, а не о лиспе.

> Твой пост - о мутных деталях реализации встроенной мемоизации в Clojure, а не о лиспе.

Не совсем так. Я смотрел как реализована мемоизация в Clojure в исходниках самого Clojure и как в Common Lisp'е в PAIP - вся разница между ними в синтаксическом сахаре.

Ну, на CL можно так:

(defun memoize (fn &key (key-fn #'first) (test #'eql))
  (let ((hash (make-hash-table :test test)))
    #'(lambda (&rest args)
        (let ((key (funcall key-fn args)))
          (multiple-value-bind (value value-p) (gethash key hash)
            (if value-p
                value
                (setf (gethash key hash) (apply fn args))))))))

(defmacro memoized-flet ((&rest fn-spec*) &body body)
  (multiple-value-bind (var-def fn-def) 
      (loop for spec in fn-spec*
         for memo-var = (gensym)
         for args-var = (gensym)
         for name = (first spec)
         for args = (second spec)
         for fn-body = (cddr spec)
         collect `(,memo-var (memoize #'(lambda ,args ,@fn-body))) into let-block
         collect `(,name (&rest ,args-var)
                         (apply ,memo-var ,args-var)) into flet-block
         finally (return (values let-block flet-block)))
    `(let ,var-def
       (flet ,fn-def
         ,@body))))

Использовать как-то так:

(defun g (...)
  (memoized-flet ((f (...)
                     ...))
    ...))

если использовать cl-utilities будет красивее.