mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

Next: Remove unneeded *socket-path* specialization.

master
Pierre Neidhardt 2020-05-03 16:03:15 +02:00
parent 05266ad9ae
commit 3e6f3331a8
1 changed files with 1 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
.config/next/init.lisp
View File

@ -217,18 +217,8 @@ before running this command."
(defvar +dev-data-profile+ (make-instance 'data-profile :name "dev")
"Development profile.")
(defmethod next:expand-data-path ((path data-path) (profile (eql +dev-data-profile+)))
(defmethod next:expand-data-path ((profile (eql +dev-data-profile+)) (path data-path))
"Persist data to /tmp/next/."
(expand-default-path (make-instance (class-name (class-of path))
:basename (basename path)
:dirname "/tmp/next/")))
(defmethod next:expand-data-path ((path (eql *socket-path*)) (profile (eql +dev-data-profile+)))
"Return path of the socket."
(cond
((getf *options* :no-socket)
nil)
(t (expand-default-path
(make-instance 'data-path
:basename (or (getf *options* :socket) (basename path))
:dirname "/tmp/next/")))))