From 642ff7e6c0133d1caca99c448460bf52ec3b46bd Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Wed, 26 Jan 2005 08:43:29 +0000 Subject: [PATCH] NULL-POINTER-P was already defined in the core --- src/lsp/ffi.lsp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/lsp/ffi.lsp b/src/lsp/ffi.lsp index 03ccf62d0..56ca23456 100644 --- a/src/lsp/ffi.lsp +++ b/src/lsp/ffi.lsp @@ -28,7 +28,8 @@ "WITH-FOREIGN-STRINGS" "ENSURE-CHAR-STORABLE" "DEF-TYPE" "WITH-CSTRING" "CONVERT-TO-CSTRING" "CONVERT-FROM-CSTRING" "FREE-CSTRING" "WITH-CAST-POINTER" "WITH-CSTRINGS" - )) + ) + (:import-from "SYS" "NULL-POINTER-P")) (in-package "FFI") @@ -352,6 +353,7 @@ :side-effects t :one-liner t)) +#+(OR) ;; Already defined in core (defun null-pointer-p (object) (si::null-pointer-p object))