></i> ,value 1 0</span>)</span></span>)</span>
   
  <span class="paren1">(<span class="lisp-bg"><i><span class="symbol">defmethod</span></i> expand-from-foreign <span class="paren2">(<span class="lisp-bg">value <span class="paren3">(<span class="lisp-bg">type my-boolean-type</span>)</span></span>)</span>
    `<span class="paren2">(<span class="lisp-bg">not <span class="paren3">(<span class="lisp-bg">zerop ,value</span>)</span></span>)</span></span>)</span>
</pre>
   <p class="noindent">And here's what the 