Don't warn if we name FFI types using symbols in package COMMON-LISP

diff --git a/src/early-types.lisp b/src/early-types.lisp
index 29a6ffb..4d6daa7 100644 (file)
--- a/src/early-types.lisp
+++ b/src/early-types.lisp
@@ -69,7 +69,9 @@
 (defmacro define-parse-method (name lambda-list &body body)
   "Define a type parser on NAME and lists whose CAR is NAME."
   (discard-docstring body)
-  (warn-if-kw-or-belongs-to-cl name)
+  (unless (member (package-name *package*) '(#:cffi #:cffi-sys #:cffi-tests)
+                  :key #'string)
+    (warn-if-kw-or-belongs-to-cl name))
   `(eval-when (:compile-toplevel :load-toplevel :execute)
      (setf (find-type-parser ',name)
            (lambda ,lambda-list ,@body))