gistfile1.lisp

(mapcar (lambda (d)
          (format nil "~{~a~^-~}"
                  (series:collect
                      (series:until-if
                       (lambda (string-part)
                         (ppcre:scan "^\\d{8}$" string-part))
                       (series:scan (ppcre:split "-" (lastcar (pathname-directory d))))))))
        (list-directory
         (merge-pathnames
          #P"software/"
          (ql-dist:base-directory (ql-dist:find-dist "quicklisp")))))