I have solved the problem by making changes to the following function in ../src
/db-clsql/sql-controller.lisp.
(defun sqlite3-harmless-read (sc)
(let ((con (controller-db sc)))
(if
(equal
(car (cadr (controller-spec sc)))
:sqlite3)
(handler-case
(clsql:query "select count(*) from keyvalue")
((clsql:sql-database-error () nil)) ;;<<<SEE CHANGE BELOW
)
)
))
(defun sqlite3-harmless-read (sc)
(let ((con (controller-db sc)))
(if
(equal
(car (cadr (controller-spec sc)))
:sqlite3)
(handler-case
(clsql:query "select count(*) from keyvalue")
(clsql:sql-database-error () nil) ;; <<<CHANGED
)
)
))
Thanks ...
Deech
On Mon, Nov 3, 2008 at 11:42 AM, aditya siram <[EMAIL PROTECTED]> wrote:
> I am trying to install elephant using asdf but I get a fatal error.
> Here is my-config.sexp:
> ;; Linux defaults
> #+(and (or sbcl allegro openmcl lispworks) (not (or mswindows
> windows)) (not (or macosx darwin)))
> ((:compiler . :gcc)
> (:berkeley-db-include-dir . "/usr/include/")
> (:berkeley-db-lib-dir . "/usr/lib/")
> (:berkeley-db-lib . "/usr/lib/libdb-4.5.so")
> (:berkeley-db-deadlock . "/usr/bin/db_deadlock")
> (:berkeley-db-cachesize . 20971520)
> (:berkeley-db-map-degree2 . t)
> (:clsql-lib-paths . nil)
> (:prebuilt-libraries . nil))
>
> and here is the error:
> ; file: /home/deech/.sbcl/site/elephant/src/db-clsql/sql-controller.lisp
> ; in: DEFUN SQLITE3-HARMLESS-READ
> ; (HANDLER-CASE (CLSQL-SYS:QUERY "select count(*) from keyvalue")
> ; ((CLSQL-SYS:SQL-DATABASE-ERROR NIL NIL)))
> ;
> ; caught ERROR:
> ; (in macroexpansion of (HANDLER-CASE (CLSQL-SYS:QUERY "select
> count(*) from keyvalue") ((CLSQL-SYS:SQL-DATABASE-ERROR NIL NIL))))
> ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
> ; error while parsing arguments to DESTRUCTURING-BIND:
> ; invalid number of elements in
> ; ((CLSQL-SYS:SQL-DATABASE-ERROR NIL NIL))
> ; to satisfy lambda list
> ; (TYPE SB-IMPL::LL &BODY SB-IMPL::BODY):
> ; at least 2 expected, but 1 found
>
> ; (LET ((DB-CLSQL::CON (DB-CLSQL::CONTROLLER-DB DB-CLSQL::SC)))
> ; (IF (EQUAL (CAR (CADR #)) :SQLITE3)
> ; (HANDLER-CASE (CLSQL-SYS:QUERY "select count(*) from keyvalue")
> ; ((CLSQL-SYS:SQL-DATABASE-ERROR NIL NIL)))))
>
> Appreciate the help ...
> deech
>
_______________________________________________
elephant-devel site list
elephant-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/elephant-devel
