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