[cl-store-devel] cl-store type error

[Cyrus Harmon]

Using cl-store from quicklisp, I get the following error when attempting to load cl-store:

The value
  ((#.SB-EXT:SINGLE-FLOAT-POSITIVE-INFINITY . 0)
   (#.SB-EXT:SINGLE-FLOAT-NEGATIVE-INFINITY . 1)
   (#<SINGLE-FLOAT quiet NaN> . 2))
is not of type
  NULL.
   [Condition of type TYPE-ERROR]

Restarts:
 0: [RETRY] Retry loading component ("cl-store").
 1: [ACCEPT] Continue, treating loading component ("cl-store") as having been successful.
 2: [RETRY] Retry SLIME REPL evaluation request.
 3: [*ABORT] Return to SLIME's top level.
 4: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread" RUNNING {1002FB7451}>)

Backtrace:
  0: (CL-STORE::SETUP-SPECIAL-FLOATS)
      Locals:
        #:G262 = :<NOT-AVAILABLE>
        #:G264 = :<NOT-AVAILABLE>
        #:G266 = :<NOT-AVAILABLE>
        #:G268 = ((#.SB-EXT:SINGLE-FLOAT-POSITIVE-INFINITY . 0) ..)
  1: ((SB-PCL::FAST-METHOD ASDF:PERFORM :AFTER (ASDF:LOAD-OP (EQL (ASDF:FIND-SYSTEM :CL-STORE)))) #<unavailable argument> #<unavailable argument> #<unavailable argument> #<unavailable argument>)
  2: ((SB-PCL::EMF ASDF:PERFORM) #<unavailable argument> #<unavailable argument> #<ASDF:LOAD-OP NIL {1003153521}> #<ASDF:SYSTEM "cl-store">)
  3: ((LAMBDA ()))
  4: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
  5: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]324))
  6: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK ..)
  7: ((FLET SB-C::WITH-IT))
  8: ((SB-PCL::FAST-METHOD ASDF:OPERATE (T T)) #<unused argument> #<unused argument> ASDF:LOAD-OP CL-STORE)
  9: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF:OOS 'ASDF:LOAD-OP 'CL-STORE) #<NULL-LEXENV>)
 10: (SWANK::EVAL-REGION "(asdf:oos 'asdf:load-op 'cl-store)\n")


it's quite possible this is an SBCL problem, but, so far, I'm only seeing this with cl-store.

I'll keep digging and write back when I have more information.

Cyrus