Jong W Kim writes:
Hello,
I am trying to have elisp and common lisp communicate with each other inside Emacs. I am using OpenMCL with SLIME on a PowerBook G4.
I have two files. One is "jong.el" and the other is "jong.lisp". Here is the code.
in the file of "jong.el"
(defun man-hello (astring) (if (equal "hello-el" astring) (slime-repl-send-input "hello-cl")) (progn (goto-char (point-max)) (insert ":hello-cl") (slime-repl-return)))
in the file of "jong.lisp"
(defvar aa nil "a test variable.")
(defun ehello-world () (format t "~%Connecting in ehello-world...") (format t "~%MAN:hello-el") (setq aa (read-line )) (if (string= aa "hello-cl") (format t "...conected.") (format t "connection not established with emacs.")))
I am loading the "jong.lisp" file into OpenMCL. Then, by pressing M-x load-file, I am loading the "jong.el".
The result is:
Connecting in ehello-world... MAN:hello-el
and it hangs until I press a key. If I press a key, I get the message below:
connection not established with emacs.
I used "slime-repl-send-input". Could you please give some advice on this?
http://darcs.informatimago.com/public/emacs/slime-rpc.el
;;;; emacs <-> common-lisp RPC with slime/swank
;;; In emacs, we can execute Common Lisp expressions:
(require 'slime)
(slime)
(setf slime-enable-evaluate-in-emacs t)
(defun eval-in-cl (cl-expression-string process-result-values) (slime-eval-with-transcript `(swank:eval-and-grab-output ,cl-expression-string) (lexical-let ((here (current-buffer)) (process-result-values process-result-values)) (lambda (result-values) (set-buffer here) (funcall process-result-values result-values)))))
(eval-in-cl "(values 1 * (ext:! 20) (package-name *package*))" (lambda (values) (dolist (v values) (insert (format "%s\n" v))))) ;; Returns: ;; ;; nil ;; ;; then later inserts: ;; ;; 1 ;; (42 (EMACS-UNREADABLE |buffer| |*scratch*|)) ;; 2432902008176640000 ;; "COMMON-LISP-USER"
;;; In Common Lisp, we can execute emacs lisp expressions:
(defparameter *emacs-readtable* (copy-readtable)) (setf (readtable-case *emacs-readtable*) :preserve) (set-syntax-from-char #> #) *emacs-readtable*) (set-dispatch-macro-character ## #< (lambda (stream subchar dispchar) `(emacs-unreadable ,@(read-delimited-list #> stream t))) *emacs-readtable*)
;; Probably more readtable patching would be in order. ;; ;; We could define CLOS proxies for emacs objects for a more seamless ;; integration. swank::eval-in-emacs process the CL form to make it ;; "emacs" (eg. downcase symbols, etc). It could convert CLOS proxies ;; to emacs lisp forms returning the corresponding emacs object.
(defun eval-in-emacs (form &optional nowait) (let ((result (SWANK::EVAL-IN-EMACS `(format "%S" ,form) nowait)) (*readtable* *emacs-readtable*)) (with-input-from-string (in result) (let ((result (read in nil in))) result))))
(eval-in-emacs `(progn (switch-to-buffer (buffer-named "*scratch*")) (goto-char (point-max)) (insert ,(format nil "~%Hello~%")) (list 42 (current-buffer))))
;; Switch to the *scratch* buffer, ;; goto the last position, and ;; inserts \nHello\n ;; then returns: ;; (42 (EMACS-UNREADABLE |buffer| |*scratch*|))