Getting Started with cl-async

01-install.txt

$ git clone https://github.com/orthecreedence/cl-async.git
$ cd cl-async
$ tar cvzf libevent2.tgz ./libevent2
$ start-sbcl
* (require 'asdf-install)

("ASDF-INSTALL")
* (asdf-install:install "libevent2.tgz")
Install where?
1) System-wide install: 
   System in /usr/lib/sbcl/site-systems/
   Files in /usr/lib/sbcl/site/ 
2) Personal installation: 
   System in /home/oubiwann/.sbcl/systems/
   Files in /home/oubiwann/.sbcl/site/ 
 --> 2

02-setup-environment.txt

$ start-sbcl
* (ql:quickload "cl-async")

[snip: lots of output for downloading and installing dependencies]

* (sb-ext:save-lisp-and-die "cl-async.core")

03-handle-signal.lisp

(ql:quickload "cl-async")

;; define a callback for our signal
(defun sigint-cb (signal-received)
  (format t "You interrupted me!~%")
  (format t "I got signal `~a`~%" signal-received)
  (as:exit-event-loop))

;; set up a signal handler
(defun setup-handler ()
  (as:signal-handler as:+sigint+ #'sigint-cb))

;; start the event loop
(as:start-event-loop #'setup-handler)

04-run-the-script.txt

$ sbcl --core cl-async.core --script 03-handle-signal.lisp
To load "cl-async":
  Load 1 ASDF system:
    cl-async
; Loading "cl-async"

05-output.txt

^CYou interrupted me!
I got signal `2`