簡単にはこんな感じで使える。 (defmacro run-ps (proc exe cmd dir) `(setq ,proc (make-process (format nil "\"~a\" ~a" ,exe ,(if cmd cmd "")) :exec-directory ,dir))) (let ((file "MzScheme.exe")) (run-ps proc file "-m -f as.scm" (directory-namestring file))) (defun send-sexp (&optional fp) (interactive) (if (interactive-p) (send-sexp (buffer-process)) (save-excursion (process-send-string fp (buffer-substring (progn