(require 'stdlib)

(defmacro spawn-process (proc args)
  ;;(let ((sp (string-split " " args)))
    ;;(princ (list "prog:" (car sp) "args: " (cdr sp)))))
    (list 'start-process proc `(string-split " " ,args)))

(defun x-spawn (args)
  (let ((proc (make-process)))
    (spawn-process proc args)))

(defun spawn (cmd)
  (let ((proc (make-process))
        (args (string-split " " cmd)))
    (set-process-prog proc (car args))
    (set-process-args proc (cdr args))
    (start-process proc)))

(spawn "rxvt -name hopsa -g 80x50")

(puts "press enter...")
(read-line standard-input)