gistfile1.lisp

CL-USER(15): (glop:with-window (win "My title" 800 600)
                          (loop while (glop:dispatch-events win :blocking nil) do
                            (glop:swap-buffers win)))
Resize: 800x600
Draw

debugger invoked on a SIMPLE-ERROR in thread
#<THREAD "initial thread" RUNNING {10029C1523}>:
  0 is not defined as a value for enum type #<CFFI::FOREIGN-ENUM
                                              GLOP-BRIDGE:NS-EVENT-TYPE>.

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::%FOREIGN-ENUM-KEYWORD
 #<CFFI::FOREIGN-ENUM GLOP-BRIDGE:NS-EVENT-TYPE>
 #<unavailable argument>
 :ERRORP
 T)
0] backtrace

0: (CFFI::%FOREIGN-ENUM-KEYWORD
    #<CFFI::FOREIGN-ENUM GLOP-BRIDGE:NS-EVENT-TYPE>
    #<unavailable argument>
    :ERRORP
    T)
1: (GLOP::%NEXT-EVENT #<GLOP:WINDOW {1007A981B3}> :BLOCKING NIL)
2: (#:EVAL-THUNK)
3: (SB-INT:SIMPLE-EVAL-IN-LEXENV
    (GLOP:WITH-WINDOW (WIN "My title" 800 600)
      (LOOP WHILE (GLOP:DISPATCH-EVENTS WIN :BLOCKING NIL)
            DO (GLOP:SWAP-BUFFERS WIN)))
    #<NULL-LEXENV>)
4: (EVAL
    (GLOP:WITH-WINDOW (WIN "My title" 800 600)
      (LOOP WHILE (GLOP:DISPATCH-EVENTS WIN :BLOCKING NIL)
            DO (GLOP:SWAP-BUFFERS WIN))))
5: (INTERACTIVE-EVAL
    (GLOP:WITH-WINDOW (WIN "My title" 800 600)
      (LOOP WHILE (GLOP:DISPATCH-EVENTS WIN :BLOCKING NIL)
            DO (GLOP:SWAP-BUFFERS WIN)))
    :EVAL
    NIL)
6: (SB-ACLREPL::REP-ONE)
7: (SB-ACLREPL::REPL :BREAK-LEVEL 0 :NOPRINT NIL :INSPECT NIL :CONTINUABLE NIL)
8: ((LAMBDA (SB-ACLREPL::NOPRINT) :IN SB-ACLREPL:MAKE-REPL-FUN) NIL)
9: ((LAMBDA () :IN SB-IMPL::TOPLEVEL-REPL))
10: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX
     #<CLOSURE (LAMBDA # :IN SB-IMPL::TOPLEVEL-REPL) {100471FD8B}>)
11: (SB-IMPL::TOPLEVEL-REPL NIL)
12: (SB-IMPL::TOPLEVEL-INIT)
13: ((FLET #:WITHOUT-INTERRUPTS-BODY-235948 :IN SAVE-LISP-AND-DIE))
14: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))