<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>