next: Don't use format for platform port path.

master
Pierre Neidhardt 2019-06-26 14:06:43 +02:00
parent a1666843e8
commit 629424836d
1 changed files with 2 additions and 3 deletions

View File

@ -2,8 +2,7 @@
;; Use development platform port.
(setf (get-default 'port 'path)
(format nil "~a/common-lisp/next/ports/gtk-webkit/next-gtk-webkit"
(uiop:getenv "HOME")))
"~/common-lisp/next/ports/gtk-webkit/next-gtk-webkit")
(setf (get-default 'remote-interface 'download-directory)
"~/temp")
@ -24,7 +23,7 @@
'blocker-mode 'hostlists)
(defun eval-in-emacs (&rest s-exps)
"Evaluate S-EXPS with emacsclient."
"Evaluate S-exps with `emacsclient'."
(let ((s-exps-string (cl-strings:replace-all
(write-to-string
`(progn ,@s-exps) :case :downcase)