}&gt;</span>)</span>
      <span class="paren3">(<span class="lisp-bg"><i><span class="symbol">unwind-protect</span></i>
          <span class="paren4">(<span class="lisp-bg">translate-from-foreign
           <span class="paren5">(<span class="lisp-bg">foreign-funcall <span class="string">"foo"</span> <span class="keyword">:pointer</span> <span class="keyword">#:G2019</span> <span class="keyword">:pointer</span></span>)</span>
           #&lt;MY-STRING-TYPE {11ED5659}&gt;</span>)</span>
        <span class=