Lisp 加载CLUnicode时出错
我想我一定错过了什么，对这件事来说是新的。Quicklisp update dist和update client说，我刚才有最新的、加载的cl ppcre，它工作正常。SBCL版本是1.3.8，如果相关的话，我在Windows7上。欢迎指点Lisp 加载CLUnicode时出错,lisp,common-lisp,sbcl,Lisp,Common Lisp,Sbcl,我想我一定错过了什么，对这件事来说是新的。Quicklisp update dist和update client说，我刚才有最新的、加载的cl ppcre，它工作正常。SBCL版本是1.3.8，如果相关的话，我在Windows7上。欢迎指点 * (ql:quickload :cl-unicode) To load "cl-unicode": Load 1 ASDF system: cl-unicode ; Loading "cl-unicode" . ; file: C:/Users
* (ql:quickload :cl-unicode)
To load "cl-unicode":
Load 1 ASDF system:
cl-unicode
; Loading "cl-unicode"
.
; file: C:/Users/K/quicklisp/dists/quicklisp/software/cl-unicode-0.1.5/util.lisp
; in: DEFINE-HANGUL-CONSTANT "SBase"
; (CL-UNICODE::DEFINE-HANGUL-CONSTANT "SBase" 44032)
; --> EVAL-WHEN
; ==>
; (DEFCONSTANT :COMMA
; (CL-UNICODE::CREATE-SYMBOL CL-UNICODE::NAME)
; :COMMA
; CL-UNICODE::VALUE
; :COMMA
; (FORMAT NIL "The constant `~A' from chapter 3 of the Unicode book."
; CL-UNICODE::NAME))
;
; caught ERROR:
; (during macroexpansion of (DEFCONSTANT :COMMA ...))
; error while parsing arguments to DEFMACRO DEFCONSTANT:
; too many elements in
; (:COMMA (CREATE-SYMBOL NAME) :COMMA VALUE :COMMA
; (FORMAT NIL "The constant `~A' from chapter 3 of the Unicode book." NAME))
; to satisfy lambda list
; (SB-IMPL::NAME SB-IMPL::VALUE &OPTIONAL (SB-IMPL::DOC)):
; between 2 and 3 expected, but got 6
; in: DEFINE-HANGUL-CONSTANT "LBase"
; (CL-UNICODE::DEFINE-HANGUL-CONSTANT "LBase" 4352)
; --> EVAL-WHEN
; ==>
; (DEFCONSTANT :COMMA
; (CL-UNICODE::CREATE-SYMBOL CL-UNICODE::NAME)
; :COMMA
; CL-UNICODE::VALUE
; :COMMA
; (FORMAT NIL "The constant `~A' from chapter 3 of the Unicode book."
; CL-UNICODE::NAME))
;
; caught ERROR:
; (during macroexpansion of (DEFCONSTANT :COMMA ...))
; error while parsing arguments to DEFMACRO DEFCONSTANT:
; too many elements in
; (:COMMA (CREATE-SYMBOL NAME) :COMMA VALUE :COMMA
; (FORMAT NIL "The constant `~A' from chapter 3 of the Unicode book." NAME))
; to satisfy lambda list
; (SB-IMPL::NAME SB-IMPL::VALUE &OPTIONAL (SB-IMPL::DOC)):
; between 2 and 3 expected, but got 6
; in: DEFINE-HANGUL-CONSTANT "VBase"
; (CL-UNICODE::DEFINE-HANGUL-CONSTANT "VBase" 4449)
; --> EVAL-WHEN
; ==>
; (DEFCONSTANT :COMMA
; (CL-UNICODE::CREATE-SYMBOL CL-UNICODE::NAME)
; :COMMA
; CL-UNICODE::VALUE
; :COMMA
; (FORMAT NIL "The constant `~A' from chapter 3 of the Unicode book."
; CL-UNICODE::NAME))
;
; caught ERROR:
; (during macroexpansion of (DEFCONSTANT :COMMA ...))
; error while parsing arguments to DEFMACRO DEFCONSTANT:
; too many elements in
; (:COMMA (CREATE-SYMBOL NAME) :COMMA VALUE :COMMA
; (FORMAT NIL "The constant `~A' from chapter 3 of the Unicode book." NAME))
; to satisfy lambda list
; (SB-IMPL::NAME SB-IMPL::VALUE &OPTIONAL (SB-IMPL::DOC)):
; between 2 and 3 expected, but got 6
; in: DEFINE-HANGUL-CONSTANT "TBase"
; (CL-UNICODE::DEFINE-HANGUL-CONSTANT "TBase" 4519)
; --> EVAL-WHEN
; ==>
; (DEFCONSTANT :COMMA
; (CL-UNICODE::CREATE-SYMBOL CL-UNICODE::NAME)
; :COMMA
; CL-UNICODE::VALUE
; :COMMA
; (FORMAT NIL "The constant `~A' from chapter 3 of the Unicode book."
; CL-UNICODE::NAME))
;
; caught ERROR:
; (during macroexpansion of (DEFCONSTANT :COMMA ...))
; error while parsing arguments to DEFMACRO DEFCONSTANT:
; too many elements in
; (:COMMA (CREATE-SYMBOL NAME) :COMMA VALUE :COMMA
; (FORMAT NIL "The constant `~A' from chapter 3 of the Unicode book." NAME))
; to satisfy lambda list
; (SB-IMPL::NAME SB-IMPL::VALUE &OPTIONAL (SB-IMPL::DOC)):
; between 2 and 3 expected, but got 6
; in: DEFINE-HANGUL-CONSTANT "VCount"
; (CL-UNICODE::DEFINE-HANGUL-CONSTANT "VCount" 21)
; --> EVAL-WHEN
; ==>
; (DEFCONSTANT :COMMA
; (CL-UNICODE::CREATE-SYMBOL CL-UNICODE::NAME)
; :COMMA
; CL-UNICODE::VALUE
; :COMMA
; (FORMAT NIL "The constant `~A' from chapter 3 of the Unicode book."
; CL-UNICODE::NAME))
;
; caught ERROR:
; (during macroexpansion of (DEFCONSTANT :COMMA ...))
; error while parsing arguments to DEFMACRO DEFCONSTANT:
; too many elements in
; (:COMMA (CREATE-SYMBOL NAME) :COMMA VALUE :COMMA
; (FORMAT NIL "The constant `~A' from chapter 3 of the Unicode book." NAME))
; to satisfy lambda list
; (SB-IMPL::NAME SB-IMPL::VALUE &OPTIONAL (SB-IMPL::DOC)):
; between 2 and 3 expected, but got 6
; in: DEFINE-HANGUL-CONSTANT "TCount"
; (CL-UNICODE::DEFINE-HANGUL-CONSTANT "TCount" 28)
; --> EVAL-WHEN
; ==>
; (DEFCONSTANT :COMMA
; (CL-UNICODE::CREATE-SYMBOL CL-UNICODE::NAME)
; :COMMA
; CL-UNICODE::VALUE
; :COMMA
; (FORMAT NIL "The constant `~A' from chapter 3 of the Unicode book."
; CL-UNICODE::NAME))
;
; caught ERROR:
; (during macroexpansion of (DEFCONSTANT :COMMA ...))
; error while parsing arguments to DEFMACRO DEFCONSTANT:
; too many elements in
; (:COMMA (CREATE-SYMBOL NAME) :COMMA VALUE :COMMA
; (FORMAT NIL "The constant `~A' from chapter 3 of the Unicode book." NAME))
; to satisfy lambda list
; (SB-IMPL::NAME SB-IMPL::VALUE &OPTIONAL (SB-IMPL::DOC)):
; between 2 and 3 expected, but got 6
; in: DEFINE-HANGUL-CONSTANT "NCount"
; (CL-UNICODE::DEFINE-HANGUL-CONSTANT "NCount"
; (* CL-UNICODE::+V-COUNT+
; CL-UNICODE::+T-COUNT+))
; --> EVAL-WHEN
; ==>
; (DEFCONSTANT :COMMA
; (CL-UNICODE::CREATE-SYMBOL CL-UNICODE::NAME)
; :COMMA
; CL-UNICODE::VALUE
; :COMMA
; (FORMAT NIL "The constant `~A' from chapter 3 of the Unicode book."
; CL-UNICODE::NAME))
;
; caught ERROR:
; (during macroexpansion of (DEFCONSTANT :COMMA ...))
; error while parsing arguments to DEFMACRO DEFCONSTANT:
; too many elements in
; (:COMMA (CREATE-SYMBOL NAME) :COMMA VALUE :COMMA
; (FORMAT NIL "The constant `~A' from chapter 3 of the Unicode book." NAME))
; to satisfy lambda list
; (SB-IMPL::NAME SB-IMPL::VALUE &OPTIONAL (SB-IMPL::DOC)):
; between 2 and 3 expected, but got 6
.
debugger invoked on a UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread
#<THREAD "main thread" RUNNING {100299C713}>:
COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-unicode/base" "util">
Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.
restarts (invokable by number or by possibly-abbreviated name):
0: [RETRY ] Retry
compiling #<CL-SOURCE-FILE "cl-unicode/base" "util">.
1: [ACCEPT ] Continue, treating
compiling #<CL-SOURCE-FILE "cl-unicode/base" "util">
as having been successful.
2: Retry ASDF operation.
3: [CLEAR-CONFIGURATION-AND-RETRY] Retry ASDF operation after resetting the configuration.
4: [ABORT ] Give up on "cl-unicode"
5: Exit debugger, returning to top level.
(UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-unicode/base" "util">)))
0] 4
;
; compilation unit aborted
; caught 2 fatal ERROR conditions
; caught 7 ERROR conditions
("cl-unicode")
*
*（ql:quickload:cl-unicode）
要加载“cl unicode”：
加载1 ASDF系统：
CLUnicode
; 正在加载“cl unicode”
.
; 文件：C:/Users/K/quicklisp/dists/quicklisp/software/cl-unicode-0.1.5/util.lisp
; in:定义-HANGUL-常量“SBase”
; （CL-UNICODE:：DEFINE-HANGUL-CONSTANT“SBase”44032）
; --> 评估时间
; ==>
; （常数：逗号）
；（CL-UNICODE:：CREATE-SYMBOL CL-UNICODE:：NAME）
逗号
；CL-UNICODE:：VALUE
逗号
；（格式化NIL“Unicode书籍第3章中的常量`~A'
；CL-UNICODE:：NAME）
;
; 捕获错误：
; （在（反常量：逗号…）的宏扩展期间）
; 分析DEFMACRO DEFCONSTANT的参数时出错：
; 中的元素太多
; （：逗号（创建符号名称）：逗号值：逗号
（格式为NIL“Unicode书籍第3章中的常量`~A.”NAME）
; 满足lambda列表
; （SB-IMPL:：NAME SB-IMPL:：VALUE&可选（SB-IMPL:：DOC））：
; 预期为2到3，但得到6
; in:DEFINE-HANGUL-常量“LBase”
; （CL-UNICODE:：DEFINE-HANGUL-CONSTANT“LBase”4352）
; --> 评估时间
; ==>
; （常数：逗号）
；（CL-UNICODE:：CREATE-SYMBOL CL-UNICODE:：NAME）
逗号
；CL-UNICODE:：VALUE
逗号
；（格式化NIL“Unicode书籍第3章中的常量`~A'
；CL-UNICODE:：NAME）
;
; 捕获错误：
; （在（反常量：逗号…）的宏扩展期间）
; 分析DEFMACRO DEFCONSTANT的参数时出错：
; 中的元素太多
; （：逗号（创建符号名称）：逗号值：逗号
（格式为NIL“Unicode书籍第3章中的常量`~A.”NAME）
; 满足lambda列表
; （SB-IMPL:：NAME SB-IMPL:：VALUE&可选（SB-IMPL:：DOC））：
; 预期为2到3，但得到6
; in:DEFINE-HANGUL-常量“VBase”
; （CL-UNICODE:：DEFINE-HANGUL-CONSTANT“VBase”4449）
; --> 评估时间
; ==>
; （常数：逗号）
；（CL-UNICODE:：CREATE-SYMBOL CL-UNICODE:：NAME）
逗号
；CL-UNICODE:：VALUE
逗号
；（格式化NIL“Unicode书籍第3章中的常量`~A'
；CL-UNICODE:：NAME）
;
; 捕获错误：
; （在（反常量：逗号…）的宏扩展期间）
; 分析DEFMACRO DEFCONSTANT的参数时出错：
; 中的元素太多
; （：逗号（创建符号名称）：逗号值：逗号
（格式为NIL“Unicode书籍第3章中的常量`~A.”NAME）
; 满足lambda列表
; （SB-IMPL:：NAME SB-IMPL:：VALUE&可选（SB-IMPL:：DOC））：
; 预期为2到3，但得到6
; in:DEFINE-HANGUL-常量“TBase”
; （CL-UNICODE:：DEFINE-HANGUL-CONSTANT“TBase”4519）
; --> 评估时间
; ==>
; （常数：逗号）
；（CL-UNICODE:：CREATE-SYMBOL CL-UNICODE:：NAME）
逗号
；CL-UNICODE:：VALUE
逗号
；（格式化NIL“Unicode书籍第3章中的常量`~A'
；CL-UNICODE:：NAME）
;
; 捕获错误：
; （在（反常量：逗号…）的宏扩展期间）
; 分析DEFMACRO DEFCONSTANT的参数时出错：
; 中的元素太多
; （：逗号（创建符号名称）：逗号值：逗号
（格式为NIL“Unicode书籍第3章中的常量`~A.”NAME）
; 满足lambda列表
; （SB-IMPL:：NAME SB-IMPL:：VALUE&可选（SB-IMPL:：DOC））：
; 预期为2到3，但得到6
; in:DEFINE-HANGUL-常量“VCount”
; （CL-UNICODE:：DEFINE-HANGUL-CONSTANT“VCount”21）
; --> 评估时间
; ==>
; （常数：逗号）
；（CL-UNICODE:：CREATE-SYMBOL CL-UNICODE:：NAME）
逗号
；CL-UNICODE:：VALUE
逗号
；（格式化NIL“Unicode书籍第3章中的常量`~A'
；CL-UNICODE:：NAME）
;
; 捕获错误：
; （在（反常量：逗号…）的宏扩展期间）
; 分析DEFMACRO DEFCONSTANT的参数时出错：
; 中的元素太多
; （：逗号（创建符号名称）：逗号值：逗号
（格式为NIL“Unicode书籍第3章中的常量`~A.”NAME）
; 满足lambda列表
; （SB-IMPL:：NAME SB-IMPL:：VALUE&可选（SB-IMPL:：DOC））：
; 预期为2到3，但得到6
; in:DEFINE-HANGUL-常量“TCount”
; （CL-UNICODE:：DEFINE-HANGUL-CONSTANT“TCount”28）
; --> 评估时间
; ==>
; （常数：逗号）
；（CL-UNICODE:：CREATE-SYMBOL CL-UNICODE:：NAME）
逗号
；CL-UNICODE:：VALUE
逗号
；（格式化NIL“Unicode书籍第3章中的常量`~A'
；CL-UNICODE:：NAME）
;
; 捕获错误：
; （在（反常量：逗号…）的宏扩展期间）
; 分析DEFMACRO DEFCONSTANT的参数时出错：
; 中的元素太多
; （：逗号（创建符号名称）：逗号值：逗号
（格式为NIL“Unicode书籍第3章中的常量`~A.”NAME）
; 满足lambda列表
; （SB-IMPL:：NAME SB-IMPL:：VALUE&可选（SB-IMPL:：DOC））：
; 预期为2到3，但得到6
; in:DEFINE-HANGUL-常量“NCount”
; （CL-UNICODE:：DEFINE-HANGUL-CONSTANT“NCount”
；（*CL-UNICODE:：+V-COUNT+
；CL-UNICODE:：+T-COUNT+）
; --> 评估时间
; ==>
; （常数：逗号）
；（CL-UNICODE:：CREATE-SYMBOL CL-UNICODE:：NAME）
逗号
；CL-UNICODE:：VALUE
逗号
；（格式化NIL“Unicode书籍第3章中的常量`~A'
；CL-UNICODE:：NAME）
;
; 捕获错误：
; （在（反常量：逗号…）的宏扩展期间）
; 分析DEFMACRO DEFCONSTANT的参数时出错：
; 中的元素太多
; （：逗号（创建符号名称）：逗号值：逗号
（格式为NIL“Unicode书籍第3章中的常量`~A.”NAME）
; 满足lambda
* (ql:quickload "quicklisp-slime-helper")
To load "quicklisp-slime-helper":
Install 3 Quicklisp releases:
alexandria quicklisp-slime-helper slime
; Fetching #<URL "http://beta.quicklisp.org/archive/slime/2016-05-31/slime-v2.18.tgz">
; 1076.19KB
==================================================
1,102,017 bytes in 3.68 seconds (292.28KB/sec)
; Fetching #<URL "http://beta.quicklisp.org/archive/alexandria/2016-08-25/alexandria-20160825-git.tgz">
; 49.63KB
==================================================
50,819 bytes in 0.31 seconds (160.09KB/sec)
; Fetching #<URL "http://beta.quicklisp.org/archive/quicklisp-slime-helper/2015-07-09/quicklisp-slime-helper-20150709-git.tgz">
; 2.16KB
==================================================
2,211 bytes in 0.00 seconds (1079.59KB/sec)
; Loading "quicklisp-slime-helper"
[package swank-loader]..While evaluating the form starting at line 151, column 0
of #P"C:/Users/K/quicklisp/dists/quicklisp/software/slime-v2.18/swank-loader.lisp":
debugger invoked on a SIMPLE-ERROR in thread
#<THREAD "main thread" RUNNING {100299C713}>:
:COMMA is not allowed as a directory component.
Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.
restarts (invokable by number or by possibly-abbreviated name):
0: [RETRY ] Retry EVAL of current toplevel form.
1: [CONTINUE ] Ignore error and continue loading file "C:\\Users\\K\\quicklisp\\dists\\quicklisp\\software\\slime-v2.18\\swank-loader.lisp
".
2: [ABORT ] Abort loading file "C:\\Users\\K\\quicklisp\\dists\\quicklisp\\software\\slime-v2.18\\swank-loader.lisp".
3: [TRY-RECOMPILING ] Recompile swank-loader and try loading it again
4: [RETRY ] Retry
loading FASL for #<SWANK-LOADER-FILE "swank" "swank-loader">.
5: [ACCEPT ] Continue, treating
loading FASL for #<SWANK-LOADER-FILE "swank" "swank-loader">
as having been successful.
6: Retry ASDF operation.
7: [CLEAR-CONFIGURATION-AND-RETRY] Retry ASDF operation after resetting the
configuration.
8: Give up on "quicklisp-slime-helper"
9: Exit debugger, returning to top level.
(SB-IMPL::IMPORT-DIRECTORY #<unavailable argument> NIL)
0]
* (ql:quickload :babel)
To load "babel":
Load 1 ASDF system:
alexandria
Install 2 Quicklisp releases:
babel trivial-features
; Fetching #<URL "http://beta.quicklisp.org/archive/trivial-features/2015-09-23/trivial-features-20150923-git.tgz">
; 10.26KB
==================================================
10,510 bytes in 0.09 seconds (119.35KB/sec)
; Fetching #<URL "http://beta.quicklisp.org/archive/babel/2015-06-08/babel-20150608-git.tgz">
; 248.03KB
==================================================
253,987 bytes in 1.06 seconds (234.22KB/sec)
; Loading "babel"
[package alexandria]
; file: C:/Users/K/quicklisp/dists/quicklisp/software/alexandria-20160825-git/package.lisp
; in: DEFPACKAGE :ALEXANDRIA
; (DEFPACKAGE :ALEXANDRIA
; ()
; 0
; ()
; DEV
; (:NICKNAMES :ALEXANDRIA)
; (:USE :CL)
; (:LOCK T)
; (:EXPORT #:IF-LET
; #:WHEN-LET
; #:WHEN-LET*
; #:CSWITCH
; #:ESWITCH
; #:SWITCH
; #:MULTIPLE-VALUE-PROG2
; #:NTH-VALUE-OR
; #:WHICHEVER
; #:XOR
; #:DEFINE-CONSTANT
; ...))
;
; caught ERROR:
; (during macroexpansion of (DEFPACKAGE :ALEXANDRIA
; ...))
; bogus DEFPACKAGE option: NIL
debugger invoked on a UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread
#<THREAD "main thread" RUNNING {100299C713}>:
COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "alexandria" "package">
Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.
restarts (invokable by number or by possibly-abbreviated name):
0: [RETRY ] Retry
compiling #<CL-SOURCE-FILE "alexandria" "package">.
1: [ACCEPT ] Continue, treating
compiling #<CL-SOURCE-FILE "alexandria" "package">
as having been successful.
2: Retry ASDF operation.
3: [CLEAR-CONFIGURATION-AND-RETRY] Retry ASDF operation after resetting the
configuration.
4: [ABORT ] Give up on "babel"
5: Exit debugger, returning to top level.
(UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "alexa
ndria" "package">)))
0] 4
;
; compilation unit aborted
; caught 2 fatal ERROR conditions
; caught 1 ERROR condition
(:BABEL)
* (ql:system-apropos "unicode")
#<SYSTEM cl-ppcre-unicode / cl-ppcre-2.0.11 / quicklisp 2016-08-25>
#<SYSTEM cl-ppcre-unicode-test / cl-ppcre-2.0.11 / quicklisp 2016-08-25>
#<SYSTEM cl-unicode / cl-unicode-0.1.5 / quicklisp 2016-08-25>
#<SYSTEM cl-unicode/base / cl-unicode-0.1.5 / quicklisp 2016-08-25>
#<SYSTEM cl-unicode/build / cl-unicode-0.1.5 / quicklisp 2016-08-25>
#<SYSTEM cl-unicode/test / cl-unicode-0.1.5 / quicklisp 2016-08-25>
#<SYSTEM hu.dwim.syntax-sugar/unicode / hu.dwim.syntax-sugar-20160318-darcs / quicklisp 2016-08-25>
*
* (setq *readtable* (copy-readtable nil))
#<READTABLE {100569BA23}>
* (ql:quickload :cl-unicode)
To load "cl-unicode":
Install 1 Quicklisp release:
cl-unicode
; Fetching #<URL "http://beta.quicklisp.org/archive/cl-unicode/2014-12-17/cl-unicode-0.1.5.tgz">
; 474.62KB
==================================================
486,011 bytes in 1.80 seconds (264.27KB/sec)
; Loading "cl-unicode"
[package cl-unicode]..............................
[package cl-unicode-names]....................
(:CL-UNICODE)
*