On Sun, Jul 20, 2008 at 1:25 AM, Luke Crook <[EMAIL PROTECTED]> wrote:
>
> On Sat, 19 Jul 2008 19:13:36 -0700, Justin Heyes-Jones
> <[EMAIL PROTECTED]> wrote:
>
> >
> > It should work as long as SDL doesn't change. lispbuilder-sdl started
> > off as a simple wrapper for SDL and that layer will always be there.
> >
> > Although I think this is pretty cool and it would be cool if it was
> > integrated into lispbuilder.
>
> Added to lispbuilder-sdl:
>
> - (LOAD-IMAGE VECTOR)
> - (LOAD-IMAGE RWOPS)
>
> Added to lispbuilder-sdl-image
>
> - (LOAD-IMAGE VECTOR)
I just updated my copy of lispbuilder-sdl to the newest version
(revision 727), which seems to have broken
sdl-image-examples:image-example on both SBCL and CLISP (error
messages included below). It looks like they are trying to load from a
vector when passed a filename.
On SBCL 1.0.13 (Windows XP):
* (asdf:oos 'asdf:load-op :lispbuilder-sdl-image-examples)
[...]
* (sdl-image-examples:image-example)
debugger invoked on a TYPE-ERROR:
The value #\\ is not of type (UNSIGNED-BYTE 8).
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.
(CFFI-SYS:%MEM-SET #\\ #.(SB-SYS:INT-SAP #X003D8AD8) :UNSIGNED-CHAR 0)
0] :backtrace
0: (CFFI-SYS:%MEM-SET #\\ #.(SB-SYS:INT-SAP #X003D8AD8) :UNSIGNED-CHAR 0)
1: (CFFI:FOREIGN-ALLOC :UNSIGNED-CHAR)
2: ((SB-PCL::FAST-METHOD LISPBUILDER-SDL::CREATE-RWOPS-FROM-BYTE-ARRAY (T))
#<unavailable argument>
#<unavailable argument>
"\\Program Files\\asdf\\lispbuilder-sdl-image\\examples\\lisp.bmp")
3: ((SB-PCL::FAST-METHOD LISPBUILDER-SDL-IMAGE:LOAD-IMAGE (VECTOR))
#<unavailable argument>
#<unavailable argument>
"\\Program Files\\asdf\\lispbuilder-sdl-image\\examples\\lisp.bmp")
4: (LISPBUILDER-SDL-IMAGE-EXAMPLES:IMAGE-EXAMPLE)
5: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(LISPBUILDER-SDL-IMAGE-EXAMPLES:IMAGE-EXAMPLE)
#<NULL-LEXENV>)
6: (INTERACTIVE-EVAL (LISPBUILDER-SDL-IMAGE-EXAMPLES:IMAGE-EXAMPLE))
7: (SB-IMPL::REPL-FUN NIL)
8: (SB-IMPL::REPL-FUN NIL)
9: ((LAMBDA ()))
10: ((LAMBDA ()))
11: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA #) {AC71D0D}>)
12: (SB-IMPL::TOPLEVEL-REPL NIL)
13: (SB-IMPL::TOPLEVEL-INIT)
14: ((LABELS SB-IMPL::RESTART-LISP))
15: ("foreign function: #x411365")
16: ("foreign function: #x40A152")
On CLISP 2.45:
[1]> (asdf:oos 'asdf:load-op :lispbuilder-sdl-image-examples)
[...]
[2]> (sdl-image-examples:image-example)
*** - FFI::WRITE-MEMORY-AS: #\\ cannot be converted to the foreign type
FFI:UCHAR
The following restarts are available:
ABORT :R1 Abort main loop
Break 1 [3]> :bt
<1/194> #<SYSTEM-FUNCTION SHOW-STACK> 3
<2/187> #<COMPILED-FUNCTION SYSTEM::PRINT-BACKTRACE>
<3/181> #<COMPILED-FUNCTION SYSTEM::DEBUG-BACKTRACE>
<4/173> #<SYSTEM-FUNCTION SYSTEM::READ-EVAL-PRINT> 2
<5/170> #<COMPILED-FUNCTION SYSTEM::BREAK-LOOP-2-3>
<6/166> #<SYSTEM-FUNCTION SYSTEM::SAME-ENV-AS> 2
<7/152> #<COMPILED-FUNCTION SYSTEM::BREAK-LOOP-2>
<8/150> #<SYSTEM-FUNCTION SYSTEM::DRIVER>
<9/110> #<COMPILED-FUNCTION SYSTEM::BREAK-LOOP>
<10/107> #<SYSTEM-FUNCTION INVOKE-DEBUGGER> 1
<11/93> #<SYSTEM-FUNCTION FFI::WRITE-MEMORY-AS> 4
<12/87> #<COMPILED-FUNCTION CFFI-SYS:%MEM-SET>
<13/80> #<COMPILED-FUNCTION CFFI::MEM-SET>
<14/68> #<COMPILED-FUNCTION CFFI:FOREIGN-ALLOC>
<15/62>
#<COMPILED-FUNCTION
#:|20 24 (DEFMETHOD CREATE-RWOPS-FROM-BYTE-ARRAY (ARRAY) ...)-5-1-1|>
<16/62> #<STANDARD-GENERIC-FUNCTION LISPBUILDER-SDL::CREATE-RWOPS-FROM-BYTE-ARRA
Y>
<17/62> #<STANDARD-GENERIC-FUNCTION LISPBUILDER-SDL::CREATE-RWOPS-FROM-BYTE-ARRA
Y>
<18/60>
#<COMPILED-FUNCTION
#:|126 137 (DEFMETHOD LOAD-IMAGE (# &KEY KEY-COLOR ...) ...)-7-1-1-1|>
<19/51>
#<COMPILED-FUNCTION
#:|126 137 (DEFMETHOD LOAD-IMAGE (# &KEY KEY-COLOR ...) ...)-7-1-1|>
<20/47> #<COMPILED-FUNCTION #:COMPILED-FORM-1073-1>
<21/41> #<STANDARD-GENERIC-FUNCTION LISPBUILDER-SDL-IMAGE:LOAD-IMAGE>
<22/41> #<STANDARD-GENERIC-FUNCTION LISPBUILDER-SDL-IMAGE:LOAD-IMAGE>
<23/30> #<COMPILED-FUNCTION LISPBUILDER-SDL-IMAGE-EXAMPLES:IMAGE-EXAMPLE>
[29] EVAL frame for form (LISPBUILDER-SDL-IMAGE-EXAMPLES:IMAGE-EXAMPLE)
Printed 23 frames
--
Elliott Slaughter
"Any road followed precisely to its end leads precisely nowhere." -
Frank Herbert
_______________________________________________
application-builder mailing list
[email protected]
http://www.lispniks.com/mailman/listinfo/application-builder
