История изменений

Исправление theNamelessOne, 13.09.13 11:29 (текущая версия) :

Можно попробовать и без макр обойтись:

(defparameter *functions-cache*
  (make-hash-table :test 'equalp))

(defstruct expr oper op1 op2)

(defun build (info)
  (aif (gethash info *functions-cache*)
       it
       (setf (gethash info *functions-cache*)
               (lambda ()
                 (funcall (expr-oper info)
                          (expr-op1 info)
                          (expr-op2 info))))))

В любом случае, логика будет похожая.

Исходная версия theNamelessOne, 13.09.13 11:29:

Можно попробовать и без макр обойтись:

(defparameter *functions-cache*
  (make-hash-table :test 'equalp))

(defstruct expr oper op1 op2)

(defun build (info)
  (aif (gethash info *functions-cache*)
       it
       (setf (gethash info *functions-cache*)
               (lambda ()
                 (funcall (expr-oper info)
                          (expr-op1 info)
                          (expr-op2 info))))))