Using the code from the above branch, I get the same generic function argument error (#2 below).
Commented it out.
There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION CLSQL-SYS:DATABASE-TYPE (3)>
when called with arguments
(#<CLSQL-SYS:CONN-POOL {1003716501}>).
[Condition of type SIMPLE-ERROR]
Restarts:
0: [RETRY] Retry calling the generic function.
1: [TERMINATE-THREAD] Terminate this thread (#<THREAD "Processing action" RUNNING {10055C7741}>)
Backtrace:
0: ((FLET SWANK-BACKEND:CALL-WITH-DEBUGGING-ENVIRONMENT) #<FUNCTION (LAMBDA #) {10038290B9}>)
1: (SWANK::DEBUG-IN-EMACS #<SIMPLE-ERROR "~@<There is no applicable method for the generic function ~2I~_~S~\n ~I~_when called with arguments ~2I~_~S.~:>" {1005667B31}>)
2: (SWANK-BACKEND::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA #) {1005667D99}>)
3: ((FLET SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK) #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA #) {1005667D99}>)
4: (SWANK::CALL-WITH-BINDINGS ..)
5: (SWANK:INVOKE-SLIME-DEBUGGER #<SIMPLE-ERROR "~@<There is no applicable method for the generic function ~2I~_~S~\n ~I~_when called with arguments ~2I~_~S.~:>" {1005667B31}>)
6: (SWANK-BACKEND::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA #) {1005667D59}>)
7: ((FLET SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK) #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA #) {1005667D59}>)
8: (SWANK:SWANK-DEBUGGER-HOOK ..)
9: (SB-DEBUG::RUN-HOOK *DEBUGGER-HOOK* #<SIMPLE-ERROR "~@<There is no applicable method for the generic function ~2I~_~S~\n ~I~_when called with arguments ~2I~_~S.~:>" {1005667B31}>)
10: (INVOKE-DEBUGGER #<SIMPLE-ERROR "~@<There is no applicable method for the generic function ~2I~_~S~\n ~I~_when called with arguments ~2I~_~S.~:>" {1005667B31}>)
11: ((FLET #:LAMBDA21) #<SIMPLE-ERROR "~@<There is no applicable method for the generic function ~2I~_~S~\n ~I~_when called with arguments ~2I~_~S.~:>" {1005667B31}>)
12: (SIGNAL #<SIMPLE-ERROR "~@<There is no applicable method for the generic function ~2I~_~S~\n ~I~_when called with arguments ~2I~_~S.~:>" {1005667B31}>)
13: (ERROR ..)
14: ((SB-PCL::FAST-METHOD NO-APPLICABLE-METHOD (T)) #<unused argument> #<unused argument> #<STANDARD-GENERIC-FUNCTION CLSQL-SYS:DATABASE-TYPE (3)> #<CLSQL-SYS:CONN-POOL {1003716501}>)
15: (SB-PCL::CALL-NO-APPLICABLE-METHOD #<STANDARD-GENERIC-FUNCTION CLSQL-SYS:DATABASE-TYPE (3)> (#<CLSQL-SYS:CONN-POOL {1003716501}>))
16: ((SB-PCL::FAST-METHOD CLSQL-SYS:DATABASE-ACQUIRE-FROM-CONN-POOL (T)) #<unavailable argument> #<unavailable argument> #<CLSQL-SYS:CONN-POOL {1003716501}>)
17: (CLSQL-SYS::FLUID-SUB-DATABASE #<error printing object>)
18: ((SB-PCL::FAST-METHOD CLSQL-SYS:DATABASE-UNDERLYING-TYPE (CLSQL-SYS:FLUID-DATABASE)) #<error printing object>)
19: ((SB-PCL::FAST-METHOD CLSQL-SYS::OUTPUT-SQL-HASH-KEY (CLSQL-SYS:SQL-IDENT-ATTRIBUTE T)) #<error printing object>)