Clisp. The form works without ps.

On Wed, Oct 27, 2010 at 5:14 PM, Daniel Gackle <[email protected]>wrote:

> That form works for me in SBCL. What Lisp are you using?
>
> On Wed, Oct 27, 2010 at 3:08 PM, Dmitri Pavlenkov <
> [email protected]> wrote:
>
>> What's wrong with my labels?
>>
>> PS[19]> (ps (defun fac (n) (labels ((f (n a)
>>     (if (< n 2)
>>          a
>>          (f (- n 1) (* n a)))))
>>    (f n 1)))
>> )
>>
>> *** - The object to be destructured should be a list with 0 elements, not
>>       ((- N 1) (* N A)).
>> The following restarts are available:
>> ABORT          :R1      Abort main loop
>> Break 1 PS[20]>
>>
>> _______________________________________________
>> parenscript-devel mailing list
>> [email protected]
>> http://common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel
>>
>>
>
> _______________________________________________
> parenscript-devel mailing list
> [email protected]
> http://common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel
>
>
_______________________________________________
parenscript-devel mailing list
[email protected]
http://common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel

Reply via email to