SBCL内置可执行文件：“尝试将插槽的值设置为XXX（SLOT-VALUE的SETF）时，对象缺少YYY插槽”？

Question

运行#'cl-state-machine-examples/tamagochi:run完全没问题，

但是生成的可执行信号SIMPLE-ERROR像这样：

内置：https://github.com/ageldama/cl-state-machine/releases/tag/fail-sbcl-slot-value

我得到：

$ ./tamagochi.exe

debugger invoked on a SIMPLE-ERROR in thread
#<THREAD "main thread" RUNNING {10005384C3}>:
  When attempting to set the slot's value to 5 (SETF of SLOT-VALUE), the slot
  MONEY is missing from the object
  #<CL-STATE-MACHINE-EXAMPLES/TAMAGOCHI::TAMAGOCHI-STATUS {1001B7B9B3}>.

Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [ABORT] Exit from the current thread.

((:METHOD SLOT-MISSING (T T T T)) #<unused argument> #<CL-STATE-MACHINE-EXAMPLES/TAMAGOCHI::TAMAGOCHI-STATUS {1001B7B9B3}> MONEY SETF 5) [fast-method]
0]

使用：

• Uname -a：Linux arch-desktop 5.3.11-arch1-1＃1 SMP PREEMPT Tue，122019年11月22:19:48 +0000 x86_64 GNU / Linux

• https://github.com/ageldama/cl-state-machine/releases/tag/fail-sbcl-slot-value

两者都：-sbcl-1.5.0-x86-64-linux和sbcl-1.5.9-x86-64-linux /

构建日志为：

This is SBCL 1.5.9, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.
WARNING: redefining UIOP/PACKAGE:FIND-PACKAGE* in DEFUN
...CUT...
WARNING: redefining UIOP/BACKWARD-DRIVER:VERSION-COMPATIBLE-P in DEFUN
[undoing binding stack and other enclosing state... done]
[performing final GC... done]
[defragmenting immobile space... (fin,inst,fdefn,code,sym)=1062+946+18321+18719+25423... done]
[saving current Lisp image into /home/jhyun/P/cl-state-machine/tamagochi.exe:
writing 0 bytes from the read-only space at 0x50000000
writing 432 bytes from the static space at 0x50100000
writing 27852800 bytes from the dynamic space at 0x1000000000
writing 2011136 bytes from the immobile space at 0x50300000
writing 12144640 bytes from the immobile space at 0x52100000
done]

谢谢您！

Answer 1

我的猜测是您的keyword->symbol函数会插入错误的程序包，因为其中的read是从另一程序执行的：

(defun keyword->symbol (kw-or-symbol)
  (with-input-from-string (s-in (string kw-or-symbol))
    (read s-in)))

我将使用intern创建符号：

(defun keyword->symbol (kw-or-symbol)
  (intern (symbol-name kw-or-symbol)
          #.*package*))

#.*package*构造在读取时给出*package*的值，即。 e。当上面的函数形式被阅读时。