问题[compilation](coding)

我有以下宏：

(defparameter *current-state* 'foo)

(defmacro when-state ((state &key (test #'eq)) &body body)
  `(when (funcall ,test *current-state* ,state)
     ,@body))

在 REPL 中使用它，无论是否指定关键参数，它都可以正常工作。

但是，在顶级defun或lambda变量声明中使用它时，如下所示：

(defun foo ()
  (when-state ('foo)
    (format t "Foo")))

然后该文件将无法使用 SBCL 编译，并出现以下错误：

; in: DEFUN FOO
;     (SENTO.FSM:WHEN-STATE ('SENTO.FSM::FOO)
;       (FORMAT T "Foo"))
; --> IF FUNCALL 
; ==>
;   1
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.
; 
; note: The first argument never returns a value.

只有明确指定关键参数时，它才能顺利编译。

这里有什么问题？

假设一个程序员正在尝试为 Windows 编写一个程序来模拟鼠标或键盘输入。Windows 具有用 C++ 编写的函数，当一起使用时可以实现这一点。如果有人用 C、Rust 或其他非 C++ 编译语言编程，那么编写所需程序的好方法是什么？

程序员是否需要学习 C++，或者是否有其他方法可以在不学习操作系统编程语言的情况下编写程序？

有没有办法用程序员习惯的语言完成项目的一部分，用另一种语言完成另一部分？这样程序员就可以只学习另一种语言的一部分。

我听说 Windows 是使用 C 和 C++ 制作的，这就是为什么我认为最后一个选项可能是可行的。

旁注：我尝试使用标签“多种语言”，但它一直被更改为“多语言”。

我有这个简单的程序

(defun testing-func ()
  (print "@Repl has Started@")
  (loop (print (eval (read)))))

(sb-ext:save-lisp-and-die #P"output-test"
   :toplevel #'testing-func
   :executable t)

每当我调用testing-funcREPL 时，它都能正常工作；像这样：

CL-USER> (testing-func)
@Repl has Started@
1 ;;input

1 2 ;; 1 is output, 2 is input

2 3 ;; 2 is output, 3 is input

3 ;; 3 is output

但在编译后sbcl --load testing-func.lisp，我得到的输出与输入“乱序”。

@Repl has Started@
1 ;; input
  ;; output
2 ;; input
1 ;; output
3 ;; input
2 ;; output

我真的不知道为什么或如何会发生这种情况。loop我还尝试通过使用递归和使用let*or来摆脱and 严格顺序funcall，但出现了相同的现象，这意味着我对编译有根本性的误解。