From d2bc1e2b32b8ccf3f4d9de37aa0de6db1aa44828 Mon Sep 17 00:00:00 2001 From: jgarcia Date: Fri, 5 Jan 2007 19:00:01 +0000 Subject: [PATCH] Fix typo in the compiler and include FOREIGN-DATA as fundamental data type in SUBTYPEP --- src/cmp/cmpffi.lsp | 2 +- src/lsp/predlib.lsp | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/src/cmp/cmpffi.lsp b/src/cmp/cmpffi.lsp index e12bd052e..bab665983 100644 --- a/src/cmp/cmpffi.lsp +++ b/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") diff --git a/src/lsp/predlib.lsp b/src/lsp/predlib.lsp index a97acced2..b81b17160 100644 --- a/src/lsp/predlib.lsp +++ b/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)