Add QL:DIST-VERSION and QL:DIST-URL.

Author: xach

quicklisp/dist.lisp

@@ -1085,3 +1085,27 @@ FUN."
                   (split-spaces line)
                 (setf versions (acons version url versions)))))
       versions)))
+
+
+;;;
+;;; User interface bits to re-export from QL
+;;;
+
+(define-condition unknown-dist (error)
+  ((name
+    :initarg :name
+    :reader unknown-dist-name))
+  (:report (lambda (condition stream)
+             (format stream "No dist known by that name -- ~S"
+                     (unknown-dist-name condition)))))
+
+(defun find-dist-or-lose (name)
+  (let ((dist (find-dist name)))
+    (or dist
+        (error 'unknown-dist :name name))))
+
+(defun dist-url (name)
+  (canonical-distinfo-url  (find-dist-or-lose name)))
+
+(defun dist-version (name)
+  (version (find-dist-or-lose name)))

quicklisp/package.lisp

@@ -237,7 +237,8 @@
            #:system-definition-searcher
            #:system-apropos
            #:dependency-tree
-           #:clean))
+           #:clean
+           #:unknown-dist))
 
 (defpackage #:ql-dist-user
   (:documentation
@@ -261,6 +262,11 @@
         #:ql-minitar
         #:ql-gunzipper)
   (:shadow #:uninstall)
+  (:shadowing-import-from #:ql-dist
+                          #:dist-version
+                          #:dist-url)
+  (:export #:dist-version
+           #:dist-url)
   (:export #:quickload
            #:*quickload-prompt*
            #:*quickload-verbose*