Fix typo in the compiler and include FOREIGN-DATA as fundamental data type in SUBTYPEP

src/cmp/cmpffi.lsp

@@ -36,7 +36,7 @@
     ;; These types are never selected to unbox data.
     ;; They are here, because we need to know how to print them.
     :void (nil "void")
-    :pointer-void (foreign-data "void*")
+    :pointer-void (si::foreign-data "void*")
     :cstring (string "char*")
     :char* (string "char*")
     :short ((integer #.si:c-short-min #.si:c-short-max) "short")

src/lsp/predlib.lsp

@@ -1039,6 +1039,7 @@ if not possible."
 	       (READTABLE)
 	       #+threads (MP::PROCESS)
 	       #+threads (MP::LOCK)
+	       #+ffi (FOREIGN-DATA)
 	       ))
 
 (defun find-built-in-tag (name)