* (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]