Loading src/project.lisp +14 −3 Original line number Diff line number Diff line Loading @@ -11,7 +11,8 @@ #:clpi/release #:clpi/repos #:clpi/utils) (:export #:project)) (:export #:project) (:import-from #:cl-semver)) (in-package #:clpi/project) Loading Loading @@ -188,7 +189,12 @@ instantiated.")) (when version-scheme (setf release-descs (sort release-descs (ecase version-scheme (:date #'string<)) #'string<) (:semver (lambda (x y) (cl-semver:version< (cl-semver:read-version-from-string x) (cl-semver:read-version-from-string y))))) :key #'car))) (with-clpi-io-syntax () (dolist (release-desc release-descs) Loading @@ -205,7 +211,12 @@ instantiated.")) (when version-scheme (setf release-descs (sort release-descs (ecase version-scheme (:date #'string<)) #'string<) (:semver (lambda (x y) (cl-semver:version< (cl-semver:read-version-from-string x) (cl-semver:read-version-from-string y))))) :key #'car))) (with-clpi-io-syntax () (dolist (release-desc release-descs) Loading Loading
src/project.lisp +14 −3 Original line number Diff line number Diff line Loading @@ -11,7 +11,8 @@ #:clpi/release #:clpi/repos #:clpi/utils) (:export #:project)) (:export #:project) (:import-from #:cl-semver)) (in-package #:clpi/project) Loading Loading @@ -188,7 +189,12 @@ instantiated.")) (when version-scheme (setf release-descs (sort release-descs (ecase version-scheme (:date #'string<)) #'string<) (:semver (lambda (x y) (cl-semver:version< (cl-semver:read-version-from-string x) (cl-semver:read-version-from-string y))))) :key #'car))) (with-clpi-io-syntax () (dolist (release-desc release-descs) Loading @@ -205,7 +211,12 @@ instantiated.")) (when version-scheme (setf release-descs (sort release-descs (ecase version-scheme (:date #'string<)) #'string<) (:semver (lambda (x y) (cl-semver:version< (cl-semver:read-version-from-string x) (cl-semver:read-version-from-string y))))) :key #'car))) (with-clpi-io-syntax () (dolist (release-desc release-descs) Loading