Hi
When I try to (weblocks-clsql-demo:start-weblocks-clsql-demo :debug
t :port 80)
I get this error:
The function CLSQL-SYS::RELEASE-TO-CONN-POOL is undefined.
[Condition of type UNDEFINED-FUNCTION]
but it seems that the function is renamed to: clsql-sys:database-
release-to-conn-pool
any ideas about fixing this?
Backtrace:
0: (CLSQL-SYS::MAKE-FLUID-DATABASE-FLUID)
1: ((SB-PCL::FAST-METHOD SHARED-INITIALIZE (SB-PCL::SLOT-OBJECT
T)) ..)
2: ((SB-PCL::EMF INITIALIZE-INSTANCE) ..)
3: ((SB-PCL::FAST-METHOD MAKE-INSTANCE (CLASS)) #<unused argument>
#<unused argument> #<CLSQL-SYS::SUB-DB-FORWARDING-CLASS CLSQL-
SYS:FLUID-DATABASE> #<unavailable &REST argument>)
4: ((SB-PCL::FAST-METHOD WEBLOCKS:OPEN-STORE ((EQL :CLSQL)))
#<unused argument> #<unused argument> #<unused argument> ("localhost"
"Shopping" "root" "dante2") :DATABASE-TYPE :MYSQL)
5: ((LAMBDA (WEBLOCKS::STORE-NAME)) WEBLOCKS-CLSQL-DEMO::*SQL-
STORE*)
6: (WEBLOCKS:OPEN-STORES)
7: ((SB-PCL::EMF WEBLOCKS:INITIALIZE-WEBAPP) #<unavailable argument>
#<unavailable argument> #<WEBLOCKS-CLSQL-DEMO::WEBLOCKS-CLSQL-DEMO
{BA87DA1}>)
8: (WEBLOCKS:START-WEBAPP WEBLOCKS-CLSQL-DEMO::WEBLOCKS-CLSQL-
DEMO :DEBUG T)
9: (WEBLOCKS:START-WEBLOCKS :DEBUG T :PORT 80)
10: (SB-INT:SIMPLE-EVAL-IN-LEXENV (WEBLOCKS-CLSQL-DEMO:START-WEBLOCKS-
CLSQL-DEMO :DEBUG T :PORT 80) #<NULL-LEXENV>)
11: (EVAL (WEBLOCKS-CLSQL-DEMO:START-WEBLOCKS-CLSQL-DEMO :DEBUG
T :PORT 80))
12: (SWANK::EVAL-REGION "(weblocks-clsql-demo:start-weblocks-clsql-
demo :Debug t :port 80)\n")
13: ((LAMBDA ()))
14: (SWANK::TRACK-PACKAGE #<CLOSURE (LAMBDA #) {C4B8225}>)
15: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation
request." #<CLOSURE (LAMBDA #) {C4B81B5}>)
16: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CLOSURE (LAMBDA #) {C4B819D}
>)
17: (SWANK::REPL-EVAL "(weblocks-clsql-demo:start-weblocks-clsql-
demo :Debug t :port 80)\n")
18: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL "(weblocks-
clsql-demo:start-weblocks-clsql-demo :Debug t :port 80) ..)
19: (EVAL (SWANK:LISTENER-EVAL "(weblocks-clsql-demo:start-weblocks-
clsql-demo :Debug t :port 80) ..)
20: (SWANK:EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(weblocks-clsql-
demo:start-weblocks-clsql-demo :Debug t :port 80)\n") "COMMON-LISP-
USER" 22)
21: (SWANK::PROCESS-REQUESTS NIL)
22: ((LAMBDA ()))
23: ((LAMBDA ()))
24: (SWANK-BACKEND::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-
DEBUGGER-HOOK> #<CLOSURE (LAMBDA #) {BCB30C5}>)
25: ((FLET SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK) #<FUNCTION
SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA #) {BCB30C5}>)
26: (SWANK::CALL-WITH-BINDINGS ((*STANDARD-OUTPUT* . #) (*STANDARD-
INPUT* . #) (*TRACE-OUTPUT* . #) (*ERROR-OUTPUT* . #) (*DEBUG-IO* . #)
(*QUERY-IO* . #) ...) #<CLOSURE (LAMBDA #) {BCB30D5}>)
27: (SWANK::HANDLE-REQUESTS #<SWANK::CONNECTION {B678871}> NIL)
28: ((FLET #:WITHOUT-INTERRUPTS-BODY-[BLOCK405]410))
29: ((FLET SB-THREAD::WITH-MUTEX-THUNK))
30: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-MUTEX]309))
31: (SB-THREAD::CALL-WITH-MUTEX ..)
32: (SB-THREAD::INITIAL-THREAD-FUNCTION)
33: ("foreign function: call_into_lisp")
34: ("foreign function: funcall0")
35: ("foreign function: new_thread_trampoline")
36: ("foreign function: #xB7FB6E99")
--
You received this message because you are subscribed to the Google Groups
"weblocks" group.
To post to this group, send email to [email protected].
To unsubscribe from this group, send email to
[email protected].
For more options, visit this group at
http://groups.google.com/group/weblocks?hl=en.
