Simplify quicklisp-software function

e1adf7e6 · Antoine Martin · 50ec396a · e1adf7e6
Commit e1adf7e6 authored Oct 18, 2017 by Antoine Martin
--- a/file.lisp
+++ b/file.lisp
@@ -24,6 +24,6 @@
       collect texi))

 (defun quicklisp-software ()
-  (concatenate 'string
-	       (namestring (ql-dist:base-directory (ql-dist:dist "quicklisp")))
-	       "software/"))
+  (namestring
+   (merge-pathnames "software/"
+		    (ql-dist:base-directory (ql-dist:dist "quicklisp")))))