title: cffi's foreign-alloc with list containing a defconstant
body: <p>I'm trying to do:</p>
  
  
  
  <pre class="lang-lisp prettyprint-override"><code>(defconstant x 1)
  (cffi:foreign-alloc :int :initial-contents  '(x 99))
  </code></pre>
  
  <p>but I get an error message:</p>
  
  <pre class="lang-none prettyprint-override"><code>The value X is not of type (SIGNED-BYTE 32).
     [Condition of type TYPE-ERROR]
  </code></pre>
  
  <p>It is very important that I can define this:</p>
  
  <pre class="lang-lisp prettyprint-override"><code>(x 99) ; x does need to be a defconstant equaling 1
  </code></pre>
  
  <p>as a pointer for the code I am writing.  How can I achieve this?</p>