quicklisp-to-nix: fix trailing whitespace

This commit is contained in:
sternenseemann 2022-01-12 11:16:22 +01:00
parent 54d4b7079b
commit 4f15ea2f31

View File

@ -44,7 +44,7 @@
(wrap :ql-dist short-description)
(defun escape-filename (s)
(format
(format
nil "~a~{~a~}"
(if (scan "^[a-zA-Z_]" s) "" "_")
(loop