pull in trivial-garbage for TG:MAKE-WEAK-HASH-TABLE

diff --git a/cl-protobufs.asd b/cl-protobufs.asd
index 97b846b7f672e442c09beb7560fd3251b85290fc..7aaf3bf305508eba05b7da0776cb87eae185976d 100644 (file)
--- a/cl-protobufs.asd
+++ b/cl-protobufs.asd
@@ -19,7 +19,7 @@
   :maintainer '("Scott McKay")
   :description      "Protobufs for Common Lisp"
   :long-description "Protobufs for Common Lisp"
-  :depends-on (:closer-mop :babel)
+  :depends-on (:closer-mop :babel :trivial-garbage)
   :serial t
   :components
     ((:module "packages"

diff --git a/define-proto.lisp b/define-proto.lisp
index 9f6cca4055839cab758df66ff4c1c154c82d1648..3e7e83cef4231a66faad3535d6912597568937fc 100644 (file)
--- a/define-proto.lisp
+++ b/define-proto.lisp
@@ -408,8 +408,7 @@
                                      (intern (format nil "~A-~A" 'set reader) *protobuf-package*)))
                          (default (getf inits :initform)))
                     (collect-form `(without-redefinition-warnings ()
-                                     (let ((,stable #+ccl  (make-hash-table :test #'eq :weak t)
-                                                    #+sbcl (make-hash-table :test #'eq :weakness :value)))
+                                     (let ((,stable (tg:make-weak-hash-table :weakness :value :test #'eq)))
                                        ,@(and reader `((defmethod ,reader ((object ,type))
                                                          (gethash object ,stable ,default))))
                                        ,@(and writer `((defmethod ,writer ((object ,type) value)
@@ -463,8 +462,7 @@
                  ;; will result in harmless redefinitions, so squelch the warnings
                  ;;--- Maybe these methods need to be defined in 'define-message'?
                  (collect-form `(without-redefinition-warnings ()
-                                  (let ((,stable #+ccl  (make-hash-table :test #'eq :weak t)
-                                                 #+sbcl (make-hash-table :test #'eq :weakness :value)))
+                                  (let ((,stable (tg:make-weak-hash-table :weakness :value :test #'eq)))
                                     ,@(and reader `((defmethod ,reader ((object ,type))
                                                       (gethash object ,stable ,default))))
                                     ,@(and writer `((defmethod ,writer ((object ,type) value)