Don't warn if we name FFI types using symbols in package COMMON-LISP
authorStelian Ionescu <sionescu@cddr.org>
Sat, 23 Feb 2013 20:19:05 +0000 (21:19 +0100)
committerStelian Ionescu <sionescu@cddr.org>
Sat, 23 Feb 2013 20:19:05 +0000 (21:19 +0100)
src/early-types.lisp

index 29a6ffb..4d6daa7 100644 (file)
@@ -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))