quaviver: add missing argument in SIGNIFICAND-WORD

* code/interface.lisp (significand-word): Add missing TYPE argument to SIGNIFICAND-SIZE call.
s-expressionists · Jul 11, 2024 · 8882cf5 · 8882cf5
1 parent b4a5a32
commit 8882cf5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/code/interface.lisp b/code/interface.lisp
@@ -80,7 +80,7 @@
 (defgeneric arithmetic-size (type))
 
 (deftype significand-word (type &optional (extra 0))
-  `(unsigned-byte ,(+ (significand-size) extra)))
+  `(unsigned-byte ,(+ (significand-size type) extra)))
 
 (deftype exponent-word (type &optional (extra 0))
   `(integer ,(- (min-exponent type) extra) ,(+ (max-exponent type) extra)))