X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fvm-fndb.lisp;h=ff95944c7c4b7a8df734716e07f7a983d1650b65;hb=ed891a4fd882d1b9fe066ab14bcf2107aea95baa;hp=7a497fde8c967b21d57c8911c3d3c7a28a9aaaa0;hpb=65cccbb44b03207ce2fb73b29424a91a7d315189;p=sbcl.git

diff --git a/src/compiler/generic/vm-fndb.lisp b/src/compiler/generic/vm-fndb.lisp
index 7a497fd..ff95944 100644
--- a/src/compiler/generic/vm-fndb.lisp
+++ b/src/compiler/generic/vm-fndb.lisp
@@ -69,6 +69,8 @@
 
 ;;;; miscellaneous "sub-primitives"
 
+(defknown pointer-hash (t) hash (flushable))
+
 (defknown %sp-string-compare
   (simple-string index index simple-string index index)
   (or index null)