Custom Query (1030 matches)

(defun f (n) (if (> n 0) (1+ (f (1- n))) 0))

In GCL,

(handler-case (f 100000)(error (x)(format t "~% handler-case caught error ~s" x) 'boohoo))

results in this:

handler-case caught error #<CONDITIONS::INTERNAL-SIMPLE-STREAM-ERROR.0>

BOOHOO

In Allegro CL, it results in this:

handler-case caught error #<synchronous-operating-system-signal @ #x221524ca>

boohoo

but in CCL we get this...

(handler-case (f 100000)(error (x)(format t "~% handler-case caught error ~s" x) 'boohoo))

Error: Stack overflow on value stack. While executing: F, in process listener(1). Type :POP to abort, :R for a list of available restarts. Type :? for other options

So CCL does not have error handling for this kind of error. If it is to be used seriously as a replacement for GCL on Windows, it has to recover better than this.

version: Welcome to Clozure Common Lisp Version 1.6-r14468M (WindowsX8632)!

Thanks

Richard Fateman fateman@…

Here's a description ...

Modern mode Lisp is identical to ANSI Common Lisp except for the following two differences:

1. The Lisp defined names are stored in lowercase.
2. The default Lisp readtable-case is set to :preserve.

... e.g. (cons 'cons 'FooBar) returns (cons . FooBar) instead of (CONS . FOOBAR)

(maybe a command line option?) Thanks Richard Fateman

Hey I was throwing an error trying to port an fft library to ccl on my 32 bit linux laptop. The lib is part of a codebase that's possibly proprietary so I can't post it here. Luckily the fix was pretty trivial and 99% sure I found a typo in the ccl source code. See attached svn diff...