Export object-package generic function.

40ants · Jan 5, 2025 · 4c1e4e7 · 4c1e4e7
1 parent 2d54e0e
commit 4c1e4e7
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 6 deletions.
diff --git a/full/object-package-impl.lisp b/full/object-package-impl.lisp
@@ -10,11 +10,6 @@
 (in-package #:40ants-doc-full/object-package-impl)
 
 
-(defmethod object-package ((object t))
-  (warn "Unable to figure out *package* for object ~S"
-        object)
-  nil)
-
 (defmethod object-package ((object symbol))
   (symbol-package object))
 

diff --git a/src/changelog.lisp b/src/changelog.lisp
@@ -155,6 +155,15 @@
                               "CLEAN-URLS"
                               ;; These objects are not documented yet:
                               "40ANTS-DOC/COMMONDOC/XREF:XREF"))
+  (0.22.0 2025-01-05
+          "* Exported 40ANTS-DOC/OBJECT-PACKAGE:OBJECT-PACKAGE generic-function.
+             Define a method for it if you have created a new locative type
+             and encounter a warning like this:
+
+             ```
+             WARNING:
+                Unable to figure out *package* for object #<40ANTS-DOC/LOCATIVES::DIAGRAM {1012A10B53}>
+             ```")
   (0.21.0 2025-01-05
           "* Changed a way how images are processed. New behaviour should be backward compatible,
              but now it is possible. But now 40ANTS-DOC-FULL/COMMONDOC/IMAGE:LOCAL-IMAGE function

diff --git a/src/object-package.lisp b/src/object-package.lisp
@@ -1,5 +1,6 @@
 (uiop:define-package #:40ants-doc/object-package
-  (:use #:cl))
+  (:use #:cl)
+  (:export #:object-package))
 (in-package #:40ants-doc/object-package)