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 (load "siteconfig.lsp")
   6
   7 (if (exists file? (list (main-args 1)
   8                         (string (main-args 1) ".lsp")))
   9     (load $it)
  10   (write-line 2 (string "Unknown command " (main-args 1))))
  11 (exit 0)