build.lisp

(defparameter *compression* 9 "Compression level of the executable binary.")
(defparameter *debug* nil "Debug information")

(eval-when (:execute)
  (pushnew (truename (sb-unix:posix-getcwd/)) ql:*local-project-directories*)
  (ql:register-local-projects)
  (ql:quickload '(:lisp-chat :cffi)))

(defmacro debug-format (&rest body)
  (when *debug*
    `(format t ,@body)))

(defun import-foreign-libraries ()
  (let ((libpath (uiop/os:getcwd)))
    (debug-format "=> New LD_LIBRARY_PATH: ~a~%" libpath)
    (pushnew libpath
             cffi:*foreign-library-directories*
             :test #'equal)
    (cffi:define-foreign-library libreadline
      (t "libreadline.so"))
    (cffi:use-foreign-library libreadline))
  (debug-format "Loaded libraries: ~a~%" (cffi:list-foreign-libraries)))


(defun main()
  (import-foreign-libraries)
  (lisp-chat/client:main))


(eval-when (:execute)
  ;; close currently foreign libraries loaded
  (loop for library in (cffi:list-foreign-libraries :loaded-only t)
        do (cffi:close-foreign-library library))
  (sb-ext:save-lisp-and-die "lisp-chat"
                            :toplevel #'main
                            :executable t
                            :compression *compression*))