command.lsp

   1
   2 # This script is intended as main script for packnl embedding, it
   3 # dispatches to the command of the first argument.
   4
   5 (if (exists file? (list (main-args 1)
   6                         (string (main-args 1) ".lsp")))
   7     (load $it)
   8   (write-line 2 (string "Unknown command " (main-args 1))))
   9 (exit 0)