From 246a39c0e0bcc77445c4ef533379be50a65d40b7 Mon Sep 17 00:00:00 2001 From: Jesse Off Date: Wed, 22 Jul 2020 14:22:28 -0700 Subject: [PATCH] Handle unbound canonical-distinfo-url --- quicklisp/dist.lisp | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/quicklisp/dist.lisp b/quicklisp/dist.lisp index 72e21a7..1632e46 100644 --- a/quicklisp/dist.lisp +++ b/quicklisp/dist.lisp @@ -834,6 +834,11 @@ the given NAME." (setf (slot-value dist 'release-index) (make-hash-table :test 'equal))) +(defmethod slot-unbound (class (dist dist) (slot (eql 'canonical-distinfo-url))) + (declare (ignore class)) + (setf (slot-value dist 'canonical-distinfo-url) + (distinfo-subscription-url dist))) + ;;; ;;; Systems