From 255bcf4d56ca45ae19d809f1f97d09368e56bc74 Mon Sep 17 00:00:00 2001 From: Alexander Artemenko Date: Sat, 13 Sep 2025 18:35:08 +0000 Subject: [PATCH] New package 40ants-doc/mito now exports `fixed-dao-table-class` class which should be used instead of Mito's `dao-table-class`. --- src/changelog.lisp | 2 ++ src/mito.lisp | 11 ++++++++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/src/changelog.lisp b/src/changelog.lisp index 6f53c9d..35c868f 100644 --- a/src/changelog.lisp +++ b/src/changelog.lisp @@ -155,6 +155,8 @@ "CLEAN-URLS" ;; These objects are not documented yet: "40ANTS-DOC/COMMONDOC/XREF:XREF")) + (0.25.1 2025-09-13 + "* New package 40ants-doc/mito now exports `fixed-dao-table-class` class which should be used instead of Mito's `dao-table-class`.") (0.25.0 2025-09-13 "* Added a `40ants-doc/mito` package with a helper to solve problem of rendering documentation for projects which use Mito's table classes. You should load this helper as your project's documentation dependency.") (0.24.2 2025-05-26 diff --git a/src/mito.lisp b/src/mito.lisp index f1bad24..2a68741 100644 --- a/src/mito.lisp +++ b/src/mito.lisp @@ -17,7 +17,8 @@ Without this helper you will get these warnings when trying to build a documenta ``` This helper sets methods source to the source of the table class. -")) +") + (:export #:fixed-dao-table-class)) (in-package #:40ants-doc/mito) @@ -45,14 +46,18 @@ This helper sets methods source to the source of the table class. (values)) -(defmethod initialize-instance :around ((class mito:dao-table-class) &rest initargs) +(defclass fixed-dao-table-class (mito:dao-table-class) + ()) + + +(defmethod initialize-instance :around ((class fixed-dao-table-class) &rest initargs) (declare (ignore initargs)) (multiple-value-prog1 (call-next-method) (set-methods-sources class))) -(defmethod reinitialize-instance :around ((class mito:dao-table-class) &rest initargs) +(defmethod reinitialize-instance :around ((class fixed-dao-table-class) &rest initargs) (declare (ignore initargs)) (multiple-value-prog1 (call-next-method)