Merge branch 'quaviver4'

s-expressionists · Oct 4, 2024 · d1842ba · d1842ba
2 parents 5bd91dc + 5fcd87a
commit d1842ba
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 2 deletions.
diff --git a/code/extrinsic/print.lisp b/code/extrinsic/print.lisp
@@ -3,9 +3,13 @@
 (defclass extrinsic-client (incless-extrinsic:extrinsic-client)
   ())
 
+(defclass extrinsic-client-impl
+    (extrinsic-client quaviver/schubfach:client)
+  ())
+
 (inravina:define-interface (incless-extrinsic:*client* extrinsic-client))
 
-(setf incless-extrinsic:*client* (make-instance 'extrinsic-client))
+(setf incless-extrinsic:*client* (make-instance 'extrinsic-client-impl))
 
 (initialize-inravina)
 

diff --git a/code/intrinsic/print.lisp b/code/intrinsic/print.lisp
@@ -3,10 +3,14 @@
 (defclass intrinsic-client (incless-intrinsic:intrinsic-client)
   ())
 
+(defclass intrinsic-client-impl
+    (intrinsic-client quaviver/schubfach:client)
+  ())
+
 (trivial-package-locks:with-unlocked-packages (:common-lisp)
   (inravina:define-interface (incless-intrinsic:*client* intrinsic-client)))
 
-(setf incless-intrinsic:*client* (make-instance 'intrinsic-client))
+(setf incless-intrinsic:*client* (make-instance 'intrinsic-client-impl))
 
 (defmethod incless:write-object ((client intrinsic-client) object stream)
   (multiple-value-bind (func presentp)