lem-ncurses.ros

#!/bin/sh
#|-*- mode:lisp -*-|#
#| lem simple emacs clone.
exec ros +Q -m lem-ncurses -L sbcl-bin -- $0 "$@"
|#
(progn
  (ros:ensure-asdf)
  (uiop:with-current-directory ((asdf:system-source-directory :lem))
    (setf (uiop:getenv "SBCL_HOME") "")
    (uiop:run-program '("qlot" "install" "--no-deps")
                      :output t
                      :error-output t)
    #+quicklisp
    (setf ql:*quicklisp-home*
          (merge-pathnames #P".qlot/"))
    (load (merge-pathnames #P".qlot/setup.lisp")))
  (unless (find-package :lem)
    (uiop:symbol-call :ql :quickload :lem-ncurses :silent t)
    (uiop:symbol-call :lem-core :load-site-init))
  (when (find :roswell.dump.executable *features*)
    (mapc (lambda (x)
            (load x :verbose t))
          (directory (merge-pathnames "scripts/build/*.lisp"
                                      (asdf/system:system-source-directory :lem))))))

(defpackage :ros.script.lem.3672618460
  (:use :cl))
(in-package :ros.script.lem.3672618460)

(defun main (&rest argv)
  (apply #'lem:lem argv))
;;; vim: set ft=lisp lisp: