# Pastebin Tm81Ye4m
;;; definition 1
(defun expose-fixed-field-type (type-name)
  (if (member type-name #.'(list "ctype_int" "ctype_unsigned_int" "ctype_unsigned_long" "ctype__Bool" "ctype_long") :test #'string=)
      nil
      t))

;;; definition 2
(defun expose-fixed-field-type (type-name)
  (if (member type-name (load-time-value (list "ctype_int" "ctype_unsigned_int" "ctype_unsigned_long" "ctype__Bool" "ctype_long")) :test #'string=)
      nil
      t))