Function: inferior-lisp

inferior-lisp is an autoloaded, interactive and byte-compiled function defined in inf-lisp.el.gz.

Signature

(inferior-lisp CMD)

Documentation

Run an inferior Lisp process, input and output via buffer *inferior-lisp*.

If there is a process already running in *inferior-lisp*, just switch to that buffer.

With argument, allows you to edit the command line (default is value of inferior-lisp-program). Runs the hooks from inferior-lisp-mode-hook (after the comint-mode-hook is run).

If any parts of the command name contains spaces, they should be quoted using shell quote syntax.

(Type C-h m (describe-mode) in the process buffer for a list of commands.)

Key Bindings

Aliases

run-lisp

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/inf-lisp.el.gz
;;;###autoload
(defun inferior-lisp (cmd)
  "Run an inferior Lisp process, input and output via buffer `*inferior-lisp*'.
If there is a process already running in `*inferior-lisp*', just switch
to that buffer.

With argument, allows you to edit the command line (default is value
of `inferior-lisp-program').  Runs the hooks from
`inferior-lisp-mode-hook' (after the `comint-mode-hook' is run).

If any parts of the command name contains spaces, they should be
quoted using shell quote syntax.

\(Type \\[describe-mode] in the process buffer for a list of commands.)"
  (interactive (list (if current-prefix-arg
			 (read-string "Run lisp: " inferior-lisp-program)
		       inferior-lisp-program)))
  (if (not (comint-check-proc "*inferior-lisp*"))
      (let ((cmdlist (split-string-shell-command cmd)))
	(set-buffer (apply (function make-comint)
			   "inferior-lisp" (car cmdlist) nil (cdr cmdlist)))
	(inferior-lisp-mode)))
  (setq inferior-lisp-buffer "*inferior-lisp*")
  (pop-to-buffer-same-window "*inferior-lisp*"))