Scott L. Burson <Scott@...> writes:
>
>
> On Sun, Feb 17, 2013 at 7:28 PM, Scott L. Burson <Scott-
[email protected]> wrote:
>
>
> If it's SBCL, you can do
> (setq sb-impl::*default-external-format* :utf-8)
>
>
>
> Oh, I should have added -- you should do this at the very beginning of your
session, before any database connections are opened. I put this form in
~/.sbclrc to accomplish that.-- Scott
>
>
> yes, I use SBCL. As Scott points,it can work now. thanks. But now another
porblem occurs. when I replace the English word "Next" with Chinese word "下一
步" in layout.lisp. I reset the ssession and refresh the page or visit the
URL "http://localhost:8080/weblocks-clsql-demo";, the Chinese word encodes
error. If I want to produce a chinese web page. How can I achieve this?
>
> And I delete all the fasl files of weblocks-clsql-demo,reload it in slime,
this time compile errors occur as follows:
The variable Ï»¿ is unbound.
[Condition of type UNBOUND-VARIABLE]
Restarts:
0: [TRY-RECOMPILING] Recompile layout and try loading it again
1: [RETRY] Retry loading FASL for #<CL-SOURCE-FILE "weblocks-clsql-
demo" "src" "layout">.
2: [ACCEPT] Continue, treating loading FASL for #<CL-SOURCE-FILE "weblocks-
clsql-demo" "src" "layout"> as having been successful.
3: [ABORT] Give up on "weblocks-clsql-demo"
4: [RETRY] Retry SLIME REPL evaluation request.
5: [*ABORT] Return to SLIME's top level.
--more--
Backtrace:
0: (SYMBOL-VALUE Ï»¿)
1: (SB-FASL::LOAD-FASL-GROUP ..)
2: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-FASL::LOAD-AS-FASL))
3: ((FLET #:WITHOUT-INTERRUPTS-BODY-99879 :IN SB-THREAD::CALL-WITH-RECURSIVE-
LOCK))
4: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK ..)
5: (SB-FASL::LOAD-AS-FASL ..)
6: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) ..)
7: (LOAD ..)
8: (SB-IMPL::%MAP-FOR-EFFECT-ARITY-1 ..)
9: ((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:LOAD-OP ASDF:CL-SOURCE-FILE)) ..)
10: ((SB-PCL::EMF ASDF:PERFORM) #<unavailable argument> #<unavailable
argument> #<ASDF:LOAD-OP (:VERBOSE NIL) {28B2CF01}> #<ASDF:CL-SOURCE-
FILE "weblocks-clsql-demo" "src" "layout">)
11: ((SB-PCL::FAST-METHOD ASDF::PERFORM-WITH-RESTARTS (ASDF:LOAD-OP ASDF:CL-
SOURCE-FILE)) ..)
12: ((SB-PCL::FAST-METHOD ASDF::PERFORM-WITH-RESTARTS :AROUND (T T)) ..)
13: ((LAMBDA () :IN ASDF::PERFORM-PLAN))
14: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-C::%WITH-COMPILATION-
UNIT))
15: ((FLET #:WITHOUT-INTERRUPTS-BODY-99879 :IN SB-THREAD::CALL-WITH-RECURSIVE-
LOCK))
16: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK ..)
17: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
18: ((SB-PCL::FAST-METHOD ASDF::PERFORM-PLAN (LIST)) ..)
19: ((LAMBDA () :IN ASDF:OPERATE))
20: (ASDF::CALL-WITH-SYSTEM-DEFINITIONS #<CLOSURE (LAMBDA # :IN ASDF:OPERATE)
{28021D6D}>)
21: ((SB-PCL::FAST-METHOD ASDF:OPERATE (T T)) #<unused argument> #<unused
argument> ASDF:LOAD-OP "weblocks-clsql-demo" :VERBOSE NIL)
22: ((SB-PCL::EMF ASDF:OPERATE) #<unused argument> #<unused argument>
ASDF:LOAD-OP "weblocks-clsql-demo" :VERBOSE NIL)
23: (QUICKLISP-CLIENT::CALL-WITH-MACROEXPAND-PROGRESS #<CLOSURE (LAMBDA # :IN
QUICKLISP-CLIENT::APPLY-LOAD-STRATEGY) {28021B75}>)
24: (QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES "weblocks-clsql-
demo" :PROMPT NIL)
25: ((SB-PCL::FAST-METHOD QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION (T
T)) ..)
26: ((SB-PCL::FAST-METHOD QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION :AROUND
(QL-IMPL:SBCL T)) ..)
27: ((SB-PCL::FAST-METHOD QUICKLISP-CLIENT:QUICKLOAD (T)) #<unused argument>
#<unused argument> #<unavailable argument> :PROMPT NIL :VERBOSE NIL)
28: (QL-DIST::CALL-WITH-CONSISTENT-DISTS #<CLOSURE (LAMBDA # :IN QUICKLISP-
CLIENT:QUICKLOAD) {27DA0AC5}>)
29: (SB-INT:SIMPLE-EVAL-IN-LEXENV (QUICKLISP-CLIENT:QUICKLOAD "weblocks-clsql-
demo") #<NULL-LEXENV>)
30: (EVAL (QUICKLISP-CLIENT:QUICKLOAD "weblocks-clsql-demo"))
31: (SWANK::EVAL-REGION "(ql:quickload \"weblocks-clsql-demo\")\n")
32: ((LAMBDA () :IN SWANK::REPL-EVAL))
33: (SWANK::TRACK-PACKAGE #<CLOSURE (LAMBDA # :IN SWANK::REPL-EVAL) {27DA078D}
>)
34: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request."
#<CLOSURE (LAMBDA # :IN SWANK::REPL-EVAL) {27DA071D}>)
35: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CLOSURE (LAMBDA # :IN SWANK::REPL-
EVAL) {27DA0705}>)
36: (SWANK::REPL-EVAL "(ql:quickload \"weblocks-clsql-demo\")\n")
37: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL "(ql:quickload
\"weblocks-clsql-demo\")\n") #<NULL-LEXENV>)
38: (EVAL (SWANK:LISTENER-EVAL "(ql:quickload \"weblocks-clsql-demo\")\n"))
39: (SWANK:EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(ql:quickload \"weblocks-
clsql-demo\")\n") "COMMON-LISP-USER" 117)
40: (SWANK::PROCESS-REQUESTS NIL)
41: ((LAMBDA () :IN SWANK::HANDLE-REQUESTS))
42: ((LAMBDA () :IN SWANK::HANDLE-REQUESTS))
43: (SWANK-BACKEND::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-
HOOK> #<CLOSURE (LAMBDA # :IN SWANK::HANDLE-REQUESTS) {266180C5}>)
44: ((FLET SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "e:/lisp/emacs-23.3/site-
lisp/slime/swank-sbcl.lisp") ..)
45: (SWANK::CALL-WITH-BINDINGS ..)
46: (SWANK::HANDLE-REQUESTS #<SWANK::MULTITHREADED-CONNECTION {276817B9}> NIL)
47: ((FLET #:WITHOUT-INTERRUPTS-BODY-239701 :IN SB-THREAD:MAKE-THREAD))
48: ((FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD:MAKE-THREAD))
49: ((FLET #:WITHOUT-INTERRUPTS-BODY-99850 :IN SB-THREAD::CALL-WITH-MUTEX))
50: (SB-THREAD::CALL-WITH-MUTEX ..)
51: (SB-THREAD::INITIAL-THREAD-FUNCTION)
52: ("foreign function: call_into_lisp {426ECD}")
Could anyone give me help?
--
You received this message because you are subscribed to the Google Groups
"weblocks" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To post to this group, send email to [email protected].
Visit this group at http://groups.google.com/group/weblocks?hl=en.
For more options, visit https://groups.google.com/groups/opt_out.
