Clisp. The form works without ps.<br><br><div class="gmail_quote">On Wed, Oct 27, 2010 at 5:14 PM, Daniel Gackle <span dir="ltr">&lt;<a href="mailto:danielgackle@gmail.com">danielgackle@gmail.com</a>&gt;</span> wrote:<br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
That form works for me in SBCL. What Lisp are you using?<br><br><div class="gmail_quote"><div><div></div><div class="h5">On Wed, Oct 27, 2010 at 3:08 PM, Dmitri Pavlenkov <span dir="ltr">&lt;<a href="mailto:dmitripavlenkov@gmail.com" target="_blank">dmitripavlenkov@gmail.com</a>&gt;</span> wrote:<br>



</div></div><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;"><div><div></div><div class="h5"><span style="font-family: courier new,monospace;">What&#39;s wrong with my labels?<br>
<br>PS[19]&gt; (ps (defun fac (n) (labels ((f (n a)</span><br style="font-family: courier new,monospace;">


<span style="font-family: courier new,monospace;">    (if (&lt; n 2)</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">         a</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">         (f (- n 1) (* n a)))))</span><br style="font-family: courier new,monospace;">




<span style="font-family: courier new,monospace;">   (f n 1)))</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">)</span><br style="font-family: courier new,monospace;">

<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">*** - The object to be destructured should be a list with 0 elements, not</span><br style="font-family: courier new,monospace;">




<span style="font-family: courier new,monospace;">      ((- N 1) (* N A)).</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">The following restarts are available:</span><br style="font-family: courier new,monospace;">




<span style="font-family: courier new,monospace;">ABORT          :R1      Abort main loop</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">Break 1 PS[20]&gt;</span><br>

<br></div></div>_______________________________________________<br>
parenscript-devel mailing list<br>
<a href="mailto:parenscript-devel@common-lisp.net" target="_blank">parenscript-devel@common-lisp.net</a><br>
<a href="http://common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel" target="_blank">http://common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel</a><br>
<br></blockquote></div><br>
<br>_______________________________________________<br>
parenscript-devel mailing list<br>
<a href="mailto:parenscript-devel@common-lisp.net">parenscript-devel@common-lisp.net</a><br>
<a href="http://common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel" target="_blank">http://common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel</a><br>
<br></blockquote></div><br>