Arcをxyzzyで。

簡単にはこんな感じで使える。

(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 (backward-sexp) (point))
			   (progn (forward-sexp) (point)))))))
(global-set-key '(#\C-x #\LFD) 'send-sexp)

ただし、S式しか送れないので、シンボルを単体で評価できない。
まあ、簡単に出来ることが分かったので、もう少し整備して、モードとして使えるようにしよう。