diff --git a/tests/float-tran.lisp b/tests/float-tran.lisp index 8eb1990a4debfeb36cf68a69e2b395e4a7c2dad0..0af83e885332b0ccd61501d8a2da6c6a5ad50a9f 100644 --- a/tests/float-tran.lisp +++ b/tests/float-tran.lisp @@ -28,7 +28,7 @@ #+double-double (assert-equalp (c::specifier-type '(integer -1073 1024)) (c::decode-float-exp-derive-type-aux - (c::specifier-type 'double-double-float))) + (c::specifier-type 'kernel:double-double-float))) (assert-equalp (c::specifier-type '(integer 2 8)) (c::decode-float-exp-derive-type-aux (c::specifier-type '(double-float 2d0 128d0)))))