我在LispWorks,我看到这个 Headers 的其他问题,但没有一个帮助我 .
这是我写的代码:
(defun get-param (param)
(lambda (state)
(getf (cdr state) param)))
(defconstant get-acc
(get-param ':acc))
(defconstant get-pc
(get-param ':pc))
来自代码的调用者在 Headers 中给出了错误 .
(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))))
提前致谢!