That form works for me in SBCL. What Lisp are you using?<br><br><div class="gmail_quote">On Wed, Oct 27, 2010 at 3:08 PM, Dmitri Pavlenkov <span dir="ltr"><<a href="mailto:dmitripavlenkov@gmail.com" target="_blank">dmitripavlenkov@gmail.com</a>></span> wrote:<br>


<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><span style="font-family:courier new,monospace">What's wrong with my labels?<br><br>PS[19]> (ps (defun fac (n) (labels ((f (n a)</span><br style="font-family:courier new,monospace">


<span style="font-family:courier new,monospace">    (if (< 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]></span><br>
<br>_______________________________________________<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>