Hi Leslie!!!
Thanks for the patch. I applied it and I get this error now:
Illegal :UTF-8 character starting at byte position 87.
[Condition of type SB-IMPL::INVALID-UTF8-STARTER-BYTE]
Restarts:
0: [USE-VALUE] Supply a replacement string designator.
1: [RETRY] Retry SLIME REPL evaluation request.
2: [ABORT] Return to SLIME's top level.
3: [TERMINATE-THREAD] Terminate this thread (#<THREAD "new-repl-
thread" RUNNING {100266C3F1}>)
Backtrace:
0: (SB-IMPL::DECODING-ERROR #(97 100 105 100 97 115 ...) 87
88 :UTF-8 SB-IMPL::INVALID-UTF8-STARTER-BYTE 87)
Locals:
SB-DEBUG::ARG-0 = #(97 100 105 100 97 115 ...)
SB-DEBUG::ARG-1 = 87
SB-DEBUG::ARG-2 = 88
SB-DEBUG::ARG-3 = :UTF-8
SB-DEBUG::ARG-4 = SB-IMPL::INVALID-UTF8-STARTER-BYTE
SB-DEBUG::ARG-5 = 87
1: (SB-IMPL::BYTES-PER-UTF8-CHARACTER-AREF #<unavailable argument>
#<unavailable argument> #<unavailable argument>)
Locals:
SB-DEBUG::ARG-0 = :<NOT-AVAILABLE>
SB-DEBUG::ARG-1 = :<NOT-AVAILABLE>
SB-DEBUG::ARG-2 = :<NOT-AVAILABLE>
2: (SB-IMPL::UTF8->STRING-AREF #<unavailable argument> #<unavailable
argument> #<unavailable argument>)
Locals:
SB-DEBUG::ARG-0 = :<NOT-AVAILABLE>
SB-DEBUG::ARG-1 = :<NOT-AVAILABLE>
SB-DEBUG::ARG-2 = :<NOT-AVAILABLE>
3: ((SB-PCL::FAST-METHOD MONTEZUMA:GET-DOCUMENT (MONTEZUMA::FIELDS-
READER T)) #(0 NIL 1 NIL 2 NIL) #<unavailable argument>
#<MONTEZUMA::FIELDS-READER {10065D08B1}> 0)
Locals:
SB-DEBUG::ARG-0 = #(0 NIL 1 NIL 2 NIL)
SB-DEBUG::ARG-1 = :<NOT-AVAILABLE>
SB-DEBUG::ARG-2 = #<MONTEZUMA::FIELDS-READER {10065D08B1}>
SB-DEBUG::ARG-3 = 0
4: ((LAMBDA (MONTEZUMA:READER)) #<MONTEZUMA::SEGMENT-READER
"_70" (10 docs, 0 deleted docs, 5 field infos) {10065C76C1}>)
Locals:
SB-DEBUG::ARG-0 = #<MONTEZUMA::SEGMENT-READER "_70" (10 docs,
0 deleted docs, 5 field infos) ..
5: (SB-IMPL::%MAP-FOR-EFFECT-ARITY-1 ..)
Locals:
SB-DEBUG::ARG-0 = #<CLOSURE (LAMBDA (MONTEZUMA:READER))
{10067313D9}>
SB-DEBUG::ARG-1 = #(#<MONTEZUMA::SEGMENT-READER "_70" (10
docs, 0 deleted docs, 5 field infos..
6: ((SB-PCL::FAST-METHOD MONTEZUMA::MERGE-FIELDS (MONTEZUMA::SEGMENT-
MERGER)) #(0 NIL 4 NIL 3 NIL ...) #<unavailable argument>
#<MONTEZUMA::SEGMENT-MERGER {10065C6F51}>)
Locals:
SB-DEBUG::ARG-0 = #(0 NIL 4 NIL 3 NIL ...)
SB-DEBUG::ARG-1 = :<NOT-AVAILABLE>
SB-DEBUG::ARG-2 = #<MONTEZUMA::SEGMENT-MERGER {10065C6F51}>
7: ((SB-PCL::FAST-METHOD MONTEZUMA::MERGE (MONTEZUMA::SEGMENT-
MERGER)) #(4 NIL) #<unavailable argument> #<MONTEZUMA::SEGMENT-MERGER
{10065C6F51}>)
Locals:
SB-DEBUG::ARG-0 = #(4 NIL)
SB-DEBUG::ARG-1 = :<NOT-AVAILABLE>
SB-DEBUG::ARG-2 = #<MONTEZUMA::SEGMENT-MERGER {10065C6F51}>
8: ((SB-PCL::FAST-METHOD MONTEZUMA::MERGE-SEGMENTS (MONTEZUMA:INDEX-
WRITER T)) #(0 NIL 12 NIL 11 NIL ...) #<unused argument>
#<MONTEZUMA:INDEX-WRITER {1006970711}> 2 #<unavailable argument>)
Locals:
SB-PCL::.PV. = #(0 NIL 12 NIL 11 NIL ...)
MONTEZUMA::MAX-SEGMENT = :<NOT-AVAILABLE>
MONTEZUMA::MAX-SEGMENT-SUPPLIED-P = NIL
MONTEZUMA::MIN-SEGMENT = 2
MONTEZUMA::SELF = #<MONTEZUMA:INDEX-WRITER {1006970711}>
9: ((SB-PCL::FAST-METHOD MONTEZUMA::MAYBE-MERGE-SEGMENTS
(MONTEZUMA:INDEX-WRITER)) #(6 NIL 4 NIL 5 NIL ...) #<unavailable
argument> #<MONTEZUMA:INDEX-WRITER {1006970711}>)
Locals:
SB-DEBUG::ARG-0 = #(6 NIL 4 NIL 5 NIL ...)
SB-DEBUG::ARG-1 = :<NOT-AVAILABLE>
SB-DEBUG::ARG-2 = #<MONTEZUMA:INDEX-WRITER {1006970711}>
10: ((SB-PCL::FAST-METHOD MONTEZUMA:ADD-DOCUMENT-TO-INDEX
(MONTEZUMA:INDEX T)) #(6 NIL 8 NIL 2 NIL ...) #<unused argument>
#<MONTEZUMA:INDEX {1002854EF1}> #<unavailable argument> NIL)
Locals:
SB-PCL::.PV. = #(6 NIL 8 NIL 2 NIL ...)
MONTEZUMA:ANALYZER = NIL
MONTEZUMA:DOC = :<NOT-AVAILABLE>
MONTEZUMA::SELF = #<MONTEZUMA:INDEX {1002854EF1}>
Yarek
On Jan 12, 5:53 am, "Leslie P. Polzer" <
s...@viridian-project.de>
wrote:
> utf8_experimental_sbcl.diff
> 6KViewDownload