Commit 5c8c33b2 authored by Eric Timmons's avatar Eric Timmons
Browse files

Remove clpm-known-source class

It was used in a very early version of CLPM and no longer needed.
parent 01ec453c
......@@ -11,8 +11,7 @@
#:clpm/data
#:puri
#:split-sequence)
(:export #:clpm-known-source
#:clpm-project
(:export #:clpm-project
#:clpm-release
#:clpm-system-release
#:clpm-source
......@@ -93,10 +92,6 @@
uniquely by a URL to its canonical location and contains projects and
systems."))
(defclass clpm-known-source (clpm-source)
()
(:documentation "Base class for any CLPM source whose type is known."))
(defmethod initialize-instance :after ((self clpm-source) &rest initargs &key url)
"Ensure that the URL field on a CLPM-SOURCE instance is a puri URL."
(declare (ignore initargs))
......
......@@ -25,7 +25,7 @@
;; * Source
(defclass fs-source (clpm-known-source)
(defclass fs-source (clpm-source)
((root-dir
:initarg :root-dir
:initform (error ":root-dir must be provided.")
......
......@@ -218,7 +218,7 @@ not."
;;; * Quicklisp backed source
(defclass quicklisp-source (clpm-known-source)
(defclass quicklisp-source (clpm-source)
((force-https
:initarg :force-https
:initform nil
......
......@@ -105,7 +105,7 @@
(defvar *git-source-cache* (make-hash-table :test 'equalp)
"A global cache mapping host names to git sources.")
(defclass vcs-source (clpm-known-source)
(defclass vcs-source (clpm-source)
()
(:documentation "root class for version control sources"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment