X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-sxhash.lisp;h=3df7c3d7172467405e5ef36e48039bf197d71ca7;hb=b870615b146940f661e5d0e9069ca4e16e9f483d;hp=0c4f16ff2bda1b855e40c2a98ecd7e231aa76390;hpb=b0642df835dc2fca3e4cf47aff978ecdc88799d5;p=sbcl.git

diff --git a/src/code/target-sxhash.lisp b/src/code/target-sxhash.lisp
index 0c4f16f..3df7c3d 100644
--- a/src/code/target-sxhash.lisp
+++ b/src/code/target-sxhash.lisp
@@ -314,7 +314,7 @@
 	       (etypecase key
 		 (single-float (frob single-float))
 		 (double-float (frob double-float))
-		 (short-float (frob short-float))
+		 #!+long-float
 		 (long-float (error "LONG-FLOAT not currently supported")))))
       (rational (if (and (<= most-negative-double-float
 			     key