Custom Query (1030 matches)

(from ticket:447)

(@class "Foo") expands into

(the (@metaclass "Foo") ...)

@metaclass isn't a valid type specifier, and the compiler complains about it when SAFETY is sufficiently high, e.g.,

? (locally (declare (optimize (safety 3))) (@class "NSObject"))
> Error: Unknown type specifier: (@METACLASS "NSObject")
> While executing: %%TYPEP, in process Listener(3).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > 

According to the <a href=""​http://www.lispworks.com/reference/HyperSpec/Body/03_cca.htm">CLHS 3.3.3.1</a> type declarations can be shortened, but CCL gives a warning:

(proclaim '((array character) *foo*)) ; Warning: Unknown declaration specifier(s) in ((ARRAY CHARACTER) *FOO*)

With CCL "Version 1.2-r11583M (LinuxPPC32)" my test

(defun test ()

(format t "Hello, world!"))

(defun make ()

(save-application "tst.exe" :toplevel-function #'test

:error-handler :quiet :prepend-kernel t))

happily prints "Hello, world!" and exits.

But with Windows 32bit CCL fresh from SVN (updated and rebuilt) it prints

Hello, world!

Error: value NIL is not of the expected type CCL::RECURSIVE-LOCK. While executing: CCL::RECURSIVE-LOCK-PTR, in process Initial(0). Type :POP to abort, :R for a list of available restarts. Error: value NIL is not of the expected type CCL::RECURSIVE-LOCK. While executing: CCL::RECURSIVE-LOCK-PTR, in process Initial(0). Type :POP to abort, :R for a list of available restarts. Error: value NIL is not of the expected type CCL::RECURSIVE-LOCK.

.... ....

and then hangs, eating CPU.

Further tinkering showed that my TEST function could be as simple as

(defun test () (ccl:gc))

Called from REPL - everything is OK; called as top-level function in a exe - program busy-waits for something.

Also, CCL prints at start-up

Can't get desired heap address at 0x4000000

May it have something to do with this GC problem? In REPL everything is OK, though: it succefully finishes a hour-long computation.

Windows: XP SP2. CPU: Intel Core Duo.