From e78e60574b262081bd3dda0b96ef4002657ae119 Mon Sep 17 00:00:00 2001 From: Pavel Korolev Date: Sun, 4 Aug 2019 21:22:15 +0300 Subject: [PATCH] Replace / separator in distribution names --- distribution/distribution.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/distribution/distribution.lisp b/distribution/distribution.lisp index c516498..3494017 100644 --- a/distribution/distribution.lisp +++ b/distribution/distribution.lisp @@ -39,7 +39,7 @@ (defgeneric directory-of (distribution) (:method ((this distribution)) - (let ((dist-name (format nil "~(~a~)" (name-of this)))) + (let ((dist-name (name-of this))) (dir (build-directory-of this) dist-name)))) @@ -140,12 +140,14 @@ (build-directory (or build-directory #p"build/")) (library-directory (or library-directory #p"lib/")) (asset-directory (or asset-directory #p"assets/")) + (stringified-name (string-downcase + (ppcre:regex-replace-all "/" (string name) "-"))) (dist (make-instance 'distribution - :name name + :name stringified-name :base-directory base-directory :target-system (or target-system name) :entry-function (parse-entry-function entry-function) - :executable-name (or executable-name (format nil "~(~a~)" name)) + :executable-name (or executable-name stringified-name) :compressed-p compressed-p :build-directory build-directory :library-directory library-directory