Function: MEMO

Source

(defun memo (fn name key test)
  (multiple-value-bind (table fun)
      (gen-memo fn key test)
    (setf (get name 'memo) table)
    fun))