 class="lisp-bg"><i><span class="symbol">defparameter</span></i> <span class="special">*str*</span> <span class="paren2">(<span class="lisp-bg">foreign-string-alloc <span class="string">"Hello, foreign world!"</span></span>)</span></span>)</span>
  =&gt; #&lt;FOREIGN-ADDRESS #x00400560&gt;
  CFFI&gt; <span class="paren1">(<span class="lisp-bg">foreign-funcall <span class="string">"strlen"</span> <span class="keyword">:pointer</span> <span class="special">*str*</span> <span class="keyword">:int</span></span>