Simplify build-releases

aa66c4d5 · Antoine Martin · 2f453c4f · aa66c4d5
Commit aa66c4d5 authored Oct 19, 2017 by Antoine Martin
--- a/quickref.lisp
+++ b/quickref.lisp
@@ -47,9 +47,7 @@

 (defun build-releases ()
  (qlmapper:map-releases
-   (concatenate 'string
-		(namestring (asdf:system-source-directory "quickref"))
-		"map-declt.lisp")))
+   (merge-pathnames "map-declt.lisp"(asdf:system-source-directory "quickref"))))

 (defun uninstall-releases ()
  (dolist (release (ql-dist:provided-releases t))