(in-package "BOOT")
;;; (use-package "SB-ALIEN")
#+sbcl 
(progn
     (SB-ALIEN::define-alien-routine
           ("writeablep" |writeablep|) SB-ALIEN::int
           (filename SB-ALIEN::c-string))

     (SB-ALIEN::define-alien-routine
           ("open_server" open_server) SB-ALIEN::int
           (server_name SB-ALIEN::c-string))
     (SB-ALIEN::define-alien-routine
          ("sock_get_int" sock_get_int) SB-ALIEN::int
          (purpose SB-ALIEN::int :in))
     (SB-ALIEN::define-alien-routine
          ("sock_send_int" sock_send_int) SB-ALIEN::int
          (purpose SB-ALIEN::int :in)
          (val SB-ALIEN::int :in))
     (SB-ALIEN::define-alien-routine
          ("sock_get_float" sock_get_float) SB-ALIEN::double
          (purpose SB-ALIEN::int :in))
     (SB-ALIEN::define-alien-routine
          ("sock_send_float" sock_send_float) SB-ALIEN::int
          (purpose SB-ALIEN::int :in)
          (num SB-ALIEN::double :in))
#|
     (define-alien-routine
          ("sock_get_string_buf" sock_get_string_buf_wrapper) int
          (purpose int :in)
          (...))
|#          
          
     (SB-ALIEN::define-alien-routine
          ("sock_send_string" sock_send_string) SB-ALIEN::int
          (purpose SB-ALIEN::int :in)
          (str SB-ALIEN::c-string))
     (SB-ALIEN::define-alien-routine
          ("sock_send_string_len" sock_send_string_len) SB-ALIEN::int
          (purpose SB-ALIEN::int :in)
          (str SB-ALIEN::c-string)
          (len SB-ALIEN::int :in))
     (SB-ALIEN::define-alien-routine ("server_switch" server_switch)
          SB-ALIEN::int)
#|
     (define-alien-routine ("sock_send_signal" sock_send_signal) int
          (purpose int :in)
          (sig int :in))
|#

)