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 @@ ...@@ -11,8 +11,7 @@
#:clpm/data #:clpm/data
#:puri #:puri
#:split-sequence) #:split-sequence)
(:export #:clpm-known-source (:export #:clpm-project
#:clpm-project
#:clpm-release #:clpm-release
#:clpm-system-release #:clpm-system-release
#:clpm-source #:clpm-source
...@@ -93,10 +92,6 @@ ...@@ -93,10 +92,6 @@
uniquely by a URL to its canonical location and contains projects and uniquely by a URL to its canonical location and contains projects and
systems.")) 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) (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." "Ensure that the URL field on a CLPM-SOURCE instance is a puri URL."
(declare (ignore initargs)) (declare (ignore initargs))
......
...@@ -25,7 +25,7 @@ ...@@ -25,7 +25,7 @@
;; * Source ;; * Source
(defclass fs-source (clpm-known-source) (defclass fs-source (clpm-source)
((root-dir ((root-dir
:initarg :root-dir :initarg :root-dir
:initform (error ":root-dir must be provided.") :initform (error ":root-dir must be provided.")
......
...@@ -218,7 +218,7 @@ not." ...@@ -218,7 +218,7 @@ not."
;;; * Quicklisp backed source ;;; * Quicklisp backed source
(defclass quicklisp-source (clpm-known-source) (defclass quicklisp-source (clpm-source)
((force-https ((force-https
:initarg :force-https :initarg :force-https
:initform nil :initform nil
......
...@@ -105,7 +105,7 @@ ...@@ -105,7 +105,7 @@
(defvar *git-source-cache* (make-hash-table :test 'equalp) (defvar *git-source-cache* (make-hash-table :test 'equalp)
"A global cache mapping host names to git sources.") "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")) (:documentation "root class for version control sources"))
......
Supports Markdown
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