Subject: [bug#57654] [PATCH 04/16] gnu: Add cl-object-class.

From: jgart <[email-masked]>
Date: Wed, 7 Sep 2022 19:48:52 -0500

* gnu/packages/lisp-xyz.scm (cl-object-class, ecl-object-class,
sbcl-object-class): New variables.
---
 gnu/packages/lisp-xyz.scm | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index d354efe3fa..4aee6a1f1f 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -23381,6 +23381,38 @@ (define-public cl-enhanced-defclass
 (define-public ecl-enhanced-defclass
   (sbcl-package->ecl-package sbcl-enhanced-defclass))
 
+(define-public sbcl-object-class
+  (package
+      (name "sbcl-object-class")
+      (version "1.0")
+      (source
+        (origin
+          (method git-fetch)
+          (uri (git-reference
+                (url "https://github.com/Hexstream/object-class")
+                (commit (string-append "v" version))))
+          (file-name (git-file-name name version))
+          (sha256
+           (base32 "0qagmd2mxbr8b60l0y3jccj0maxjchds96p935pd3q805ry50683"))))
+      (build-system asdf-build-system/sbcl)
+      (native-inputs (list sbcl-parachute))
+      (inputs
+        (list sbcl-closer-mop
+              sbcl-enhanced-find-class
+              sbcl-compatible-metaclasses))
+      (home-page "https://www.hexstreamsoft.com/libraries/object-class/")
+      (synopsis "Cluster special subclasses of the standard-object")
+      (description
+"Ensures that special subclasses of standard-object cluster right in
+front of standard-object in the class precedence list.")
+      (license license:unlicense)))
+
+(define-public cl-object-class
+  (sbcl-package->cl-source-package sbcl-object-class))
+
+(define-public ecl-object-class
+  (sbcl-package->ecl-package sbcl-object-class))
+
 (define-public sbcl-smug
   (let ((commit "647a2428df297e1dd183ba7c19574bdb1320ae79")
         (revision "0"))
-- 
2.37.2