Custom Query (1030 matches)

Create file ~/test.lisp:

(defun junk (x  y)
  (list x y))

Welcome to Clozure Common Lisp Version 1.3-dev-r11972M-trunk  (DarwinX8632)!
? (load "/Users/rme/test")
#P"/Users/rme/test.lisp"
? (find-definition-sources 'junk)
(((#<FUNCTION-DEFINITION-TYPE FUNCTION #x87909FE> . JUNK) #<SOURCE-NOTE "home:test..newest":0-32 NIL>))

Note incorrect pathname in source-note. This doesn't happen when loading with (load "home:test").

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

(from ​http://clozure.com/pipermail/openmcl-devel/2009-May/009380.html)

In cmd.exe, I cd to c:\cclㅁ; (c:\cclM where M is the square Korean character #\u+3141; any Korean characters in the path have this effect) and run C:\cclㅁ>wx86cl.exe > log.txt

> Error: value NIL is not of the expected type (OR STRING PATHNAME STREAM).
> While executing: PATHNAME-DIRECTORY, in process Initial(0).
> Type :GO to continue, :POP to abort, :R for a list of available restarts.
> If continued: Skip (possibly crucial) startup function
CCL::INIT-LOGICAL-DIRECTORIES.
> Type :? for other options.
> 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.

We see a similar problem on Darwin:

$ cd ccl-1.3-日本語/
$ ./dx86cl
> Error: value NIL is not of the expected type (OR STRING PATHNAME STREAM).
> While executing: PATHNAME-DIRECTORY, in process Initial(0).
> Type :GO to continue, :POP to abort, :R for a list of available restarts.
> If continued: Skip (possibly crucial) startup function CCL::INIT-LOGICAL-DIRECTORIES.
> Type :? for other options.
1 >