@@ -44,7 +44,7 @@
4444(wrap :ql-dist short-description)
4545
4646(defun escape-filename (s)
47− (format
47+ (format
4848 nil "~a~{~a~}"
4949 (if (scan "^[a-zA-Z_]" s) "" "_")
5050 (loop
@@ -260,9 +260,10 @@ This function stores results for memoization purposes in files within
260260(defun print-usage-and-quit ()
261261 "Does what it says on the tin."
262262 (format *error-output* "Usage:
263− ~A [--help] [--cacheSystemInfoDir <path>] <work-dir>
263+ ~A [--help] [--cacheSystemInfoDir <path>] [--cacheFaslDir <path>] <work-dir>
264264Arguments:
265265 --cacheSystemInfoDir Store computed system info in the given directory
266+ --cacheFaslDir Store intermediate fast load files in the given directory
266267 --help Print usage and exit
267268 <work-dir> Path to directory with quicklisp-to-nix-systems.txt
268269" (uiop:argv0))