Common Lisp-函数之间的错误：格式未定义的运算符get-param（get-param：mem）

Question

我在LispWorks中，我还看到其他与此标题相关的问题，但没有一个人帮助我。

这是我写的代码：

(defun get-param (param)
  (lambda (state)
    (getf (cdr state) param)))

(defconstant get-acc
  (get-param ':acc))
(defconstant get-pc
  (get-param ':pc))

代码调用者给我标题中的错误。

(defun add-instruction (xx state)
    (let* ((acc (funcall get-acc state))
             (new-acc (mod (+ acc xx) 1000))
             (new-flag (> 999 (+ acc xx)))
             (new-pc (+ 1 (funcall get-pc state)))
             (list 'state ':acc new-acc ':pc new-pc ':mem (funcall get-mem state))))

谢谢！