Function: TMP-MEMOIZE

Source

(defun tmp-memoize (fn &key (key #'first) (test #'eql))
  (multiple-value-bind (val fun)
      (gen-memo fn key test)
    fun))