Plaster
New
List
Login
common-lisp
default
phoe
2019.11.26 22:48:38
* (define-alien-routine "Beep" boolean (freq int) (dur int)) BEEP * (beep 100 100) debugger invoked on a SB-WIN32:EXCEPTION in thread #<THREAD "main thread" RUNNING {10011E0553}>: An exception occurred in context #.(SB-SYS:INT-SAP #X0096E4E0): #.(SB-SYS:INT-SAP #X0096F040). (Exception code: 1073807370) ;; #x4001000A Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [CONTINUE] Return from the exception handler 1: [ABORT ] Exit debugger, returning to top level. (SB-KERNEL:HANDLE-WIN32-EXCEPTION #.(SB-SYS:INT-SAP #X0096E4E0) #.(SB-SYS:INT-SAP #X0096F040)) 0] backtrace Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10011E0553}> 0: (SB-KERNEL:HANDLE-WIN32-EXCEPTION #.(SB-SYS:INT-SAP #X0096E4E0) #.(SB-SYS:INT-SAP #X0096F040)) 1: ("foreign function: #x43874B") 2: ("foreign function: #x404471") 3: (SB-INT:SIMPLE-EVAL-IN-LEXENV (BEEP 100 100) #<NULL-LEXENV>) 4: (EVAL (BEEP 100 100)) 5: (INTERACTIVE-EVAL (BEEP 100 100) :EVAL NIL) 6: (SB-IMPL::REPL-FUN NIL) 7: ((FLET "LAMBDA0" :IN "SYS:SRC;CODE;TOPLEVEL.LISP")) 8: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (FLET "LAMBDA0" :IN "SYS:SRC;CODE;TOPLEVEL.LISP") {96F7BB}>) 9: (SB-IMPL::TOPLEVEL-REPL NIL) 10: (SB-IMPL::TOPLEVEL-INIT) 11: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE)) 12: ((FLET "WITHOUT-INTERRUPTS-BODY-14" :IN SAVE-LISP-AND-DIE)) 13: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE)) 14: ("foreign function: #x43874B") 15: ("foreign function: #x404315") 0]
Raw
Annotate
Repaste