lilu-desk/dot-lilu/bin/lilu-eval.ros

#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#

(progn ;;init forms
  (ros:ensure-asdf)
  #+quicklisp(ql:quickload '(:lilu-desk)
                           :silent t))

(defpackage :ros.script.lilu-eval.3841829401
  (:use :cl))
(in-package :ros.script.lilu-eval.3841829401)

(opts:define-opts
  #.lilu-roswell:*default-help-option*
  #.lilu-roswell:*default-debugger-option*)

(defun main (&rest argv)
  (lilu-roswell:init)
  (multiple-value-bind (options free-args)
      (lilu-roswell:parse-options argv
                                  :free-args-p t :min-free-args 1)
    (declare (ignorable free-args))
    (lilu-roswell:options-check-for-help options
                                         :prefix nil
                                         :suffix nil
                                         :usage-of "lilu-eval.ros"
                                         :args     "S-EXP ...")
    (lilu-debugger:with-debugger
        ((lilu-roswell:options-get-value options :debugger))
      (dolist (sexp free-args)
        (let ((exp (read-from-string sexp)))
          (format t "~A => ~A~%" exp (eval exp)))))))

;;; vim: set ft=lisp lisp: