[elephant-devel] Issues installing Elephant 0.9

[aditya siram]

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 <aditya.siram at gmail.com> 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
>