diff --git a/src/early-types.lisp b/src/early-types.lisp
index 29a6ffb6db1e20dc13b86c4ac6f8766acb18c9a1..4d6daa7daf4a30cd74ed25b39323d20afc27b043 100644
--- 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))