Commit 77569cc8 authored by Dave Cooper's avatar Dave Cooper
Browse files

Merge pull request #119 from nicklevine/slime-devel

Crinkles 2013-05-23 ##1,2,5,6
parents b861cf4a 7aaf07db
This diff is collapsed.
......@@ -8,7 +8,7 @@
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:version "2013031600"
:depends-on (:cl-lite :gwl-graphics :tasty :robot :yadd)
:components ((:file #+:swank "emacs/glime")))
:components (#+:swank (:file "emacs/glime")))
(defmethod perform :after ((op load-op) (system (eql (find-system "gendl"))))
......@@ -54,24 +54,19 @@
#+#:nil (asdf:initialize-source-registry `(:source-registry (:tree ,gendl :inherit-configuration)))
;; 3. Load gendl plus dependencies.
;; 3. Load gendl plus dependencies (including glime).
(funcall (find-symbol (string 'quickload) :ql) :gendl)
;; 4. Load the slime integration. Ideally this should be done
;; (conditionally) by the quickload above.
(load (compile-file (merge-pathnames "emacs/glime.lisp" gendl)))
;; 4a. This is a workaround for
;; 3a. This is a workaround for
;; "#+lispworks Gray slime-output-stream doesn't handle non base-chars"
(setf (slot-value *standard-output* 'swank-backend::buffer)
(coerce (slot-value *standard-output* 'swank-backend::buffer)
(let ((swank-backend-buffer (find-symbol "BUFFER" "SWANK-BACKEND")))
(setf (slot-value *standard-output* swank-backend-buffer)
(coerce (slot-value *standard-output* swank-backend-buffer)
;; 5. Start gendl.
;; 4. Start gendl.
(let ((starter (find-symbol (string 'start-gendl!) :gendl)))
(funcall starter)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment