7

我使用 asdf-install 将 ltk 安装到 Steel Bank Common Lisp，但我什至无法开始使用它 V_V。下面的代码是文档中最简单的示例，几乎是逐字复制的。

(asdf:operate 'asdf:load-op :ltk)

(defun hello-1()
  (with-ltk ()
   (let ((b (make-instance 'button
                           :master nil
                           :text "Press Me"
                           :command (lambda ()
                                      (format t "Hello World!~&")))))
     (pack b))))
(hello-1)

这是我从 sbcl 收到的错误消息：

> ; in: LAMBDA NIL
;     (PACK B)
; 
; caught STYLE-WARNING:
;   undefined function: PACK

;     (WITH-LTK NIL
;      (LET ((B (MAKE-INSTANCE 'BUTTON :MASTER NIL :TEXT "Press Me" :COMMAND #)))
;        (PACK B)))
; 
; caught STYLE-WARNING:
;   undefined function: WITH-LTK
; 
; compilation unit finished
;   Undefined functions:
;     PACK WITH-LTK
;   caught 2 STYLE-WARNING conditions

debugger invoked on a SIMPLE-ERROR in thread #<THREAD "initial thread" RUNNING {1002A57B61}>:
  There is no class named BUTTON.

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

restarts (invokable by number or by possibly-abbreviated name):
  0: [ABORT] Exit debugger, returning to top level.

(SB-PCL::FIND-CLASS-FROM-CELL BUTTON NIL T)
4

2 回答 2

5

您必须将符号导入您希望它工作的包中。

通用的“用户”包是cl-user，一个“处女”图像会把你放在那里。为了从另一个包中导入（导出的）符号，发出(use-package :another-package). REPL 上的示例：

（asdf：加载系统：ltk）
（使用包：ltk）

有时想要使用未导入的符号。然后，您可以在它们前面加上包，例如bar:foo，bar包名称和foo符号在哪里。

在实际系统上工作时，您通常会为其定义一个或多个包。这是通过 完成的defpackage，您可以通过它告诉您要直接导入哪些其他包：

(defpackage #:my-app
  (:使用:cl
        :ltk))

然后，您需要切换到该软件包：

（包内 #:my-app）

当建立一个包含多个相互依赖的文件的更复杂的系统时，系统定义工具变得很有价值。目前使用最广泛的是ASDF，尽管存在一些替代品。

于 2010-03-14T20:38:24.463 回答
0

ASDF 不会将包加载到 COMMON-LISP-USER 包中。因此，您当前的包中没有定义 WITH-LTK，因此您需要这样做：

(asdf:oos 'asdf:load-op :ltk)
(in-package :ltk)
;put your function here
于 2010-03-14T20:27:37.513 回答