mirror of
https://github.com/roswell/roswell.git
synced 2026-09-10 07:16:17 -04:00
28 lines
675 B
Common Lisp
28 lines
675 B
Common Lisp
(roswell:include "util-dump")
|
|
(defpackage :roswell.dump.clisp
|
|
(:use :cl :roswell.util :roswell.util.dump))
|
|
(in-package :roswell.dump.clisp)
|
|
|
|
(defun dump-executable (cmds out script)
|
|
(declare (ignore script))
|
|
(preprocess-before-dump)
|
|
(ext:saveinitmem
|
|
out
|
|
:quiet t
|
|
:executable 0
|
|
:norc t
|
|
:script nil
|
|
:init-function
|
|
#'(lambda ()
|
|
(setf *load-pathname* (pathname (first ext:*args*)))
|
|
(setf roswell:*argv* (rest ext:*args*))
|
|
(roswell:run cmds))))
|
|
|
|
(defun clisp (type &rest args)
|
|
(case type
|
|
(:query (first args))
|
|
(:executable
|
|
(apply 'dump-executable args))
|
|
(:output
|
|
(ext:saveinitmem (first args) :quiet t))))
|