From b20048af3f0808d5a029c468003cb4f76493fa6b Mon Sep 17 00:00:00 2001 From: =?utf8?q?Lu=C3=ADs=20Oliveira?= Date: Mon, 11 May 2020 14:16:52 +0100 Subject: [PATCH] c2ffi: add missing EVAL-WHEN (lp#1876713) --- src/c2ffi/generator.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/c2ffi/generator.lisp b/src/c2ffi/generator.lisp index 6010957..7e2bfd5 100644 --- a/src/c2ffi/generator.lisp +++ b/src/c2ffi/generator.lisp @@ -271,9 +271,10 @@ (setf namespace :default)) (cffi::find-type-parser type-name namespace)) -(define-constant +name-kinds+ '(:struct :union :function :variable :type - :constant :field :argument :enum :member) - :test 'equal) +(eval-when (:compile-toplevel :load-toplevel :execute) + (define-constant +name-kinds+ '(:struct :union :function :variable :type + :constant :field :argument :enum :member) + :test 'equal)) (deftype ffi-name-kind () '#.(list* 'member +name-kinds+)) -- 2.11.4.GIT