Subject: cl-sql: 'asdf-load-op 'clsql compiles with errors
From: Brian Kudowski <[email-masked]>
To: Debian Bug Tracking System <[email-masked]>
Date: Sun, 11 Nov 2007 21:19:25 +0100

Package: cl-sql
Version: 3.7.8-1
Severity: important

Hello Kevin et all,

(asdf:oos 'asdf:load-op 'clsql) bails out on my machine:

Slime REPL:
---------------------------------------------
; loading system definition from /usr/share/common-lisp/systems/clsql.asd
; into #<PACKAGE "ASDF0">
; loading system definition from /usr/share/common-lisp/systems/uffi.asd
; into #<PACKAGE "ASDF1">
; registering #<SYSTEM UFFI {AF2EA99}> as UFFI
; registering #<SYSTEM CLSQL {B1D7811}> as CLSQL

*sldb sbcl/1*:
---------------------------------------------
Execution of a form compiled with errors.
Form:
  (%DEFUN 'POSITION-CHAR
        (NAMED-LAMBDA POSITION-CHAR (CHAR STRING START MAX)
                      (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0))
                       (FIXNUM START MAX) (SIMPLE-STRING STRING))
                      (BLOCK POSITION-CHAR
                        (DO* ((I START (1+ I)))
                             ((= I MAX) NIL)
                          (DECLARE (FIXNUM I)) ..
   [Condition of type SB-INT:COMPILED-PROGRAM-ERROR]

Restarts:
 0: [RETRY] Retry performing #<ASDF:LOAD-OP NIL {B979BA9}> on
#<ASDF:CL-SOURCE-FILE "utils" {B967DA9}>.
 1: [ACCEPT] Continue, treating #<ASDF:LOAD-OP NIL {B979BA9}> on
 #<ASDF:CL-SOURCE-FILE "utils" {B967DA9}> as having been successful.
 2: [ABORT] Return to SLIME's top level.
 3: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread"
{A976659}>)

Backtrace:
  0: (SB-FASL::LOAD-FASL-GROUP
      #<SB-SYS:FD-STREAM for "file
      #/var/cache/common-lisp-controller/1000/sbcl/clsql/sql/utils.fasl"
      #/{ADB80A9}>)
  1: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
  2: (SB-UNIX::CALL-WITH-LOCAL-INTERRUPTS
      #<CLOSURE (FLET SB-UNIX::WITH-LOCAL-INTERRUPTS-THUNK) {B6485475}>
      T)
  3: ((FLET SB-UNIX::WITHOUT-INTERRUPTS-THUNK) T)
  4: ((FLET SB-UNIX::RUN-WITHOUT-INTERRUPTS))
  5: (SB-UNIX::CALL-WITHOUT-INTERRUPTS
      #<CLOSURE (FLET SB-UNIX::WITHOUT-INTERRUPTS-THUNK) {B6485565}>)
  6: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK
      #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK) {B64855DD}>
      #S(SB-THREAD:MUTEX
         :NAME "big compiler lock"
         :VALUE #<SB-THREAD:THREAD "repl-thread" {A976659}>))
  7: (SB-FASL::LOAD-AS-FASL
      #<SB-SYS:FD-STREAM for "file
      #/var/cache/common-lisp-controller/1000/sbcl/clsql/sql/utils.fasl"
      #/{ADB80A9}>
      NIL
      #<unavailable argument>)
  8: (SB-FASL::INTERNAL-LOAD
      #P"/var/cache/common-lisp-controller/1000/sbcl/clsql/sql/utils.fasl"
      #P"/var/cache/common-lisp-controller/1000/sbcl/clsql/sql/utils.fasl"
      :ERROR
      NIL
      NIL
      :BINARY
      NIL)
  9: (SB-FASL::INTERNAL-LOAD
      #P"/var/cache/common-lisp-controller/1000/sbcl/clsql/sql/utils.fasl"
      #P"/var/cache/common-lisp-controller/1000/sbcl/clsql/sql/utils.fasl"
      :ERROR
      NIL
      NIL
      NIL
      :DEFAULT)
 10: (LOAD
      #P"/var/cache/common-lisp-controller/1000/sbcl/clsql/sql/utils.fasl")
 11: ((SB-PCL::FAST-METHOD ASDF:PERFORM
       (ASDF:LOAD-OP ASDF:CL-SOURCE-FILE))
      #<unavailable argument>
      #<unavailable argument>
      #<ASDF:LOAD-OP NIL {B979BA9}>
      #<ASDF:CL-SOURCE-FILE "utils" {B967DA9}>)
 12: ((LAMBDA
          (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.
           SB-PCL::.ARG1.))
      #<unavailable argument>
      #<unavailable argument>
      #<ASDF:LOAD-OP NIL {B979BA9}>
      #<ASDF:CL-SOURCE-FILE "utils" {B967DA9}>)
 13: ((LAMBDA ()))
 14: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
 15: (SB-UNIX::CALL-WITH-LOCAL-INTERRUPTS
      #<CLOSURE (FLET SB-UNIX::WITH-LOCAL-INTERRUPTS-THUNK) {B64859CD}>
      T)
 16: ((FLET SB-UNIX::WITHOUT-INTERRUPTS-THUNK) T)
 17: ((FLET SB-UNIX::RUN-WITHOUT-INTERRUPTS))
 18: (SB-UNIX::CALL-WITHOUT-INTERRUPTS
      #<CLOSURE (FLET SB-UNIX::WITHOUT-INTERRUPTS-THUNK) {B6485ABD}>)
 19: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK
      #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK) {B6485B35}>
      #S(SB-THREAD:MUTEX
         :NAME "big compiler lock"
         :VALUE #<SB-THREAD:THREAD "repl-thread" {A976659}>))
 20: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA #) {B360F9D}>)
 21: (ASDF:OPERATE ASDF:LOAD-OP CLSQL)
 22: (SB-INT:SIMPLE-EVAL-IN-LEXENV
      (ASDF:OOS 'ASDF:LOAD-OP 'CLSQL)
      #<NULL-LEXENV>)
 23: (SWANK::EVAL-REGION
      "(asdf:oos 'asdf:load-op 'clsql)
     "
      T)
[...]

-- eof sldb --

Regards,
Brian K.

-- System Information:

 deb http://people.debian.org/~pvaneynd/cl-etch-packages ./

Debian Release: 4.0
  APT prefers stable
  APT policy: (500, 'stable')
Architecture: i386 (i686)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.18-5-686
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)

Versions of packages cl-sql depends on:
ii  common-lisp-controller        6.9        This is a Common Lisp source and c

Versions of packages cl-sql recommends:
ii  cl-sql-mysql [cl-sql-backend] 3.7.8-1    CLSQL database backend, MySQL

-- no debconf information