Skip to content

Instantly share code, notes, and snippets.

@wilkes
Created November 21, 2008 16:28
Show Gist options
  • Save wilkes/27485 to your computer and use it in GitHub Desktop.
Save wilkes/27485 to your computer and use it in GitHub Desktop.
Debugger entered--Lisp error: (file-error "Searching for program" "No such file or directory" "lisp")
start-process("inferior-lisp" #<buffer *inferior-lisp*> "lisp")
apply(start-process "inferior-lisp" #<buffer *inferior-lisp*> "lisp" nil)
start-file-process("inferior-lisp" #<buffer *inferior-lisp*> "lisp")
apply(start-file-process "inferior-lisp" #<buffer *inferior-lisp*> "lisp" nil)
comint-exec-1("inferior-lisp" #<buffer *inferior-lisp*> "lisp" nil)
comint-exec(#<buffer *inferior-lisp*> "inferior-lisp" "lisp" nil nil)
(let ((process-environment ...)) (comint-exec (current-buffer) "inferior-lisp" program nil program-args))
(save-current-buffer (set-buffer (get-buffer-create buffer)) (when directory (cd ...)) (comint-mode) (let (...) (comint-exec ... "inferior-lisp" program nil program-args)) (lisp-mode-variables t) (let (...) (slime-set-query-on-exit-flag proc) proc))
(with-current-buffer (get-buffer-create buffer) (when directory (cd ...)) (comint-mode) (let (...) (comint-exec ... "inferior-lisp" program nil program-args)) (lisp-mode-variables t) (let (...) (slime-set-query-on-exit-flag proc) proc))
slime-start-lisp("lisp" nil nil nil "*inferior-lisp*")
(cond ((not ...) (slime-start-lisp program program-args env directory buffer)) ((slime-reinitialize-inferior-lisp-p program program-args env buffer) (when-let ... ...) (get-buffer-process buffer)) (t (slime-start-lisp program program-args env directory ...)))
slime-maybe-start-lisp("lisp" nil nil nil "*inferior-lisp*")
(let ((proc ...)) (slime-inferior-connect proc args) (pop-to-buffer (process-buffer proc)))
(let ((args ...)) (slime-check-coding-system coding-system) (when (slime-bytecode-stale-p) (slime-urge-bytecode-recompile)) (let (...) (slime-inferior-connect proc args) (pop-to-buffer ...)))
(catch (quote --cl-block-slime-start--) (let (...) (slime-check-coding-system coding-system) (when ... ...) (let ... ... ...)))
(cl-block-wrapper (catch (quote --cl-block-slime-start--) (let ... ... ... ...)))
(block slime-start (let (...) (slime-check-coding-system coding-system) (when ... ...) (let ... ... ...)))
(let* ((program ...) (program-args ...) (directory ...) (coding-system ...) (init ...) (name ...) (buffer ...) (init-function ...) (env ...)) (let (...) (while --cl-keys-- ...)) (block slime-start (let ... ... ... ...)))
slime-start(:program "lisp" :program-args nil)
apply(slime-start (:program "lisp" :program-args nil))
slime-start*((:program "lisp" :program-args nil))
(let ((inferior-lisp-program ...) (slime-net-coding-system ...)) (slime-start* (cond ... ...)))
slime()
pt-repl()
call-interactively(pt-repl t nil)
execute-extended-command(nil)
call-interactively(execute-extended-command nil nil)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment