X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fvm-fndb.lisp;h=e2264f1e04ca6dc996a8a86fd9e62b06599c351e;hb=ace140856e6b3f92bb06597092a59753f1e59142;hp=f5b74b308c653a8d696d03862edc6aadbea09874;hpb=b9a60d8c091096ce7f90073de9b3d26ec7433387;p=sbcl.git

diff --git a/src/compiler/generic/vm-fndb.lisp b/src/compiler/generic/vm-fndb.lisp
index f5b74b3..e2264f1 100644
--- a/src/compiler/generic/vm-fndb.lisp
+++ b/src/compiler/generic/vm-fndb.lisp
@@ -174,14 +174,14 @@
   sb!vm:word
   (foldable flushable movable))
 
-(defknown 32bit-logical-not (sb!vm:word) sb!vm:word
+(defknown word-logical-not (sb!vm:word) sb!vm:word
   (foldable flushable movable))
 
-(defknown (32bit-logical-and 32bit-logical-nand
-	   32bit-logical-or 32bit-logical-nor
-	   32bit-logical-xor 32bit-logical-eqv
-	   32bit-logical-andc1 32bit-logical-andc2
-	   32bit-logical-orc1 32bit-logical-orc2)
+(defknown (word-logical-and word-logical-nand
+	   word-logical-or word-logical-nor
+	   word-logical-xor word-logical-eqv
+	   word-logical-andc1 word-logical-andc2
+	   word-logical-orc1 word-logical-orc2)
 	  (sb!vm:word sb!vm:word) sb!vm:word
   (foldable flushable movable))