I saw this, and wanted to see if it was true or not.

https://desuarchive.org/g/thread/108559798/#108562871

The Data

Let's start by setting up some data to play with.

;; get dists
(defparameter ql-dist (ql-dist:find-dist "quicklisp"))
(defparameter ul-dist (ql-dist:find-dist "ultralisp"))
;; get system names
(defparameter ql-names (mapcar #'ql-dist:name (ql:provided-systems ql-dist)))
(defparameter ul-names (mapcar #'ql-dist:name (ql:provided-systems ul-dist)))

How many systems exist?

(list
 ;; number of systems in quicklisp
 (length ql-names)
 ;; number of systems in ultralisp
 (length ul-names))

Results:

(6207 6882)

How many systems do they have in common?

;; number of systems in common between quicklisp and ultralisp
(length (intersection ql-names ul-names :test #'string=))

Results:

3441 (12 bits, #xD71)

How many systems are unique to each distribution?

(list
 ;; # of systems only in quicklisp
 (length (set-difference ql-names ul-names :test #'string=))
 ;; # of systems only in ultralisp
 (length (set-difference ul-names ql-names :test #'string=)))

Results:

(2766 3441)

They are quite different.

I expected there to be much more overlap between quicklisp and ultralisp, but the data revealed otherwise.

The Data

How many systems exist?

How many systems do they have in common?

How many systems are unique to each distribution?

They are quite different.

Links