On Thu, Oct 9, 2008 at 1:34 AM, Nikodemus Siivola <nikodemus@random-state.net> wrote:
On Thu, Oct 9, 2008 at 11:21 AM, Elliott Slaughter
<elliottslaughter@gmail.com> wrote:

Thanks for testing!

My pleasure.
 
> debugger invoked on a SB-KERNEL:CASE-FAILURE:
>   NIL fell through ECASE expression. Wanted one of (:RELATIVE :ABSOLUTE).

It seems NATIVE-NAMESTRING is broken on Windows (that is, doesn't
support pathnames with directory NIL.)

What if you apply the attached diff on top?

The same contrib modules fail to build properly. And the error changes to the following:

* (load-shared-object "Kernel32")

debugger invoked on a UNDEFINED-FUNCTION:
  The function (SETF SB-ALIEN::SHARED-OBJECT-HANDLE) is undefined.

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [ABORT] Exit debugger, returning to top level.

("bogus stack frame")
0] backtrace

0: ("bogus stack frame")
1: (SB-SYS:DLOPEN-OR-LOSE
    #S(SB-ALIEN::SHARED-OBJECT
       :PATHNAME #P"Kernel32"
       :NAMESTRING "Kernel32"
       :SAP NIL
       :DONT-SAVE NIL))
2: ((FLET SB-THREAD::WITH-MUTEX-THUNK))
3: (LOAD-SHARED-OBJECT "Kernel32")[:EXTERNAL]
4: (SB-INT:SIMPLE-EVAL-IN-LEXENV (LOAD-SHARED-OBJECT "Kernel32") #<NULL-LEXENV>)
5: (INTERACTIVE-EVAL (LOAD-SHARED-OBJECT "Kernel32"))
6: (SB-IMPL::REPL-FUN NIL)
7: (SB-IMPL::REPL-FUN NIL)[:EXTERNAL]
8: ((LAMBDA ()))
9: ((LAMBDA ()))[:EXTERNAL]
10: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA #) {23E0C875}>)
11: (SB-IMPL::TOPLEVEL-REPL NIL)
12: (SB-IMPL::TOPLEVEL-INIT)
13: ((LABELS SB-IMPL::RESTART-LISP))
14: ("foreign function: #x411245")
15: ("foreign function: #x40A2D6")



--
Elliott Slaughter

"Any road followed precisely to its end leads precisely nowhere." - Frank Herbert