Question

我使用＆＃34; pregexp＆＃34;用于SBCL中的正则表达式操作的包。因为函数没有在包中定义，所以我有以下代码包装它：

---------------在文件＆＃34; foo.lisp＆＃34; -----------------

(defpackage :pregexp
   (:use :common-lisp)
   (:documentation "Portable Regular Expression Library")
   (:nicknames :pre))

(in-package :pregexp)
(load (merge-pathnames "libs/pregexp/pregexp" CL-USER:*x-code-path*))

(export '(pregexp
           pregexp-match-positions
           pregexp-match
           pregexp-split
           pregexp-replace
           pregexp-replace*
           pregexp-quote))

我将代码放在启动文件＆＃34;〜/ .sbclrc＆＃34;中，以加载＆＃34; foo.lisp＆＃34;上开始。现在这已经很好了，当我启动SBCL时没有错误。

然后我注意到每次我重新加载＆＃34; foo.lisp＆＃34;，都有警告说已经导出的函数，所以我改变了代码：

---------------在文件＆＃34; foo.lisp＆＃34; -----------------

#-pregexp
(progn

(defpackage :pregexp
   (:use :common-lisp)
   (:documentation "Portable Regular Expression Library")
   (:nicknames :pre))

(in-package :pregexp)
(load (merge-pathnames "libs/pregexp/pregexp" CL-USER:*x-code-path*))

(export '(pregexp
           pregexp-match-positions
           pregexp-match
           pregexp-split
           pregexp-replace
           pregexp-replace*
           pregexp-quote))

(pushnew :pregexp *features*)

)

我只将代码包装在'progn＆＃39;阻止，但每次我开始SBCL，那里是错误：

debugger invoked on a SB-KERNEL:SIMPLE-PACKAGE-ERROR in thread
#<THREAD "main thread" RUNNING {23EF7A51}>:
  These symbols are not accessible in the PREGEXP package:
    (COMMON-LISP-USER::PREGEXP COMMON-LISP-USER::PREGEXP-MATCH-POSITIONS
     COMMON-LISP-USER::PREGEXP-MATCH COMMON-LISP-USER::PREGEXP-SPLIT
     COMMON-LISP-USER::PREGEXP-REPLACE COMMON-LISP-USER::PREGEXP-REPLACE*
     COMMON-LISP-USER::PREGEXP-QUOTE)

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

restarts (invokable by number or by possibly-abbreviated name):
  0: [CONTINUE] IMPORT these symbols into the PREGEXP package.
  1: [RETRY   ] Retry EVAL of current toplevel form.
  2:            Ignore error and continue loading file "C:\\test\\bar.lisp".
  3: [ABORT   ] Abort loading file "C:\\test\\bar.lisp".
  4:            Retry EVAL of current toplevel form.
  5:            Ignore error and continue userinit file "C:\\user\\Dropbox\\.sbclrc".
  6:            Abort userinit file "C:\\user\\Dropbox\\.sbclrc".
  7:            Skip to toplevel READ/EVAL/PRINT loop.
  8: [EXIT    ] Exit SBCL (calling #'EXIT, killing the process).

((FLET SB-IMPL::THUNK :IN EXPORT))
0]

那么，我现在该怎么办？

PS，环境：SBCL x86 1.1.4在Windows Server 2003 32位上

Answer 1

读者将PROGN表单作为当前包中的单个表单读取。符号来自那个包。

因此，请尝试从包COMMON-LISP-USER::PREFEXP中导出PREGEXP符号。

您需要确保导出正确的符号（位于正确的包中）。

Answer 2

Rainer Joswig's answer提到了读者，实习和导出过程中发生的一些事情，但我想知道使用:export的{{1}}条款是否更容易避免你遇到的问题。 defpackage。如果您使用它，可以将defpackage表单写为：

(defpackage :pregexp
   (:use :common-lisp)
   (:documentation "Portable Regular Expression Library")
   (:nicknames :pre))
   (:export #:pregexp                 ; or :pregexp, or "PREGEXP"
            #:pregexp-match-positions 
            #:pregexp-match 
            #:pregexp-split
            #:pregexp-replace
            #:pregexp-replace*
            #:pregexp-quote))

即使这些符号命名为函数，也不需要在导出与之关联的符号之前定义这些函数。（我只提到，因为问题中的代码定义了包，然后加载（大概）函数定义，然后导出符号。事情不需要按顺序发生。例如，定义包，导出符号，然后定义函数。）

导出符号上的sbcl错误

2 个答案: