Custom Query (1030 matches)

I am reposting this message from Lispforum, because the problem appears to be specific to Clozure CL.

I have a problem with a program I have written that parses files for the game "Morrowind".

If interested the repository is at ​http://bitbucket.org/eeeickythump/esper/

Basically the problem is with filenames that have a single quote in them. Clozure's pathname functions seem to insist on mangling these filenames by removing the quote (which is a perfectly legal character in Windows filesystems).

Using Clozure CL 1.4 on WinXP:

CL-USER> (probe-file "c:/Morrowind/Data Files/Beryl's_Head_Replacer_v1.0.esm")  ; this is the actual filename
NIL
CL-USER> (probe-file #p"c:/Morrowind/Data Files/Beryl's_Head_Replacer_v1.0.esm")
NIL
CL-USER> (pathname "c:/Morrowind/Data Files/Beryl's_Head_Replacer_v1.0.esm")
#P"c:/Morrowind/Data Files/Beryls_Head_Replacer_v1'.0.esm"    ; note the mangling of single quotes
CL-USER> (probe-file *)
NIL
CL-USER> (pathname "c:/Morrowind/Data Files/Beryl\'s_Head_Replacer_v1.0.esm")
#P"c:/Morrowind/Data Files/Beryls_Head_Replacer_v1'.0.esm"
CL-USER> (pathname "c:/Morrowind/Data Files/Beryl\\'s_Head_Replacer_v1.0.esm")
#P"c:/Morrowind/Data Files/Beryl/s_Head_Replacer_v1'.0.esm"
CL-USER> (pathname "c:/Morrowind/Data Files/Beryl''s_Head_Replacer_v1.0.esm")   ; try 2 quotes
#P"c:/Morrowind/Data Files/Beryl''s_Head_Replacer_v1'.0.esm"    ; this fails too

I've had to release a version of the program that asks the users to rename any files with apostrophes in their names. This is rather embarrassing for someone who is trying to advocate common lisp as the best programming language around!

Can someone enlighten me as to how I can get clozure to recognise these filenames?

If the program creates many short-lived threads, eventually it starts failing, and subsequently the process silently exits:

E:\Software\ccl>wx86cl.exe
Welcome to Clozure Common Lisp Version 1.4  (WindowsX8632)!
? (dotimes (i 100) (format t "+") (process-run-function :foo (lambda () nil)))
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++
NIL
? (dotimes (i 100) (format t "+") (process-run-function :foo (lambda () nil)))
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++
NIL
? (dotimes (i 100) (format t "+") (process-run-function :foo (lambda () nil)))
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++
NIL
? (dotimes (i 100) (format t "+") (process-run-function :foo (lambda () nil)))
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++
NIL
? (dotimes (i 100) (format t "+") (process-run-function :foo (lambda () nil)))
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++
NIL
? (dotimes (i 100) (format t "+") (process-run-function :foo (lambda () nil)))
CreateThread: 0x8 Not enough storage is available to process this command.

+++++++++++++++++++++++++++++++++++++++++++++++++
> Error: Can't create thread
> While executing: CCL::NEW-TCR, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > :pop

? (dotimes (i 100) (format t "+") (process-run-function :foo (lambda () nil)))
CreateThread: 0x8 Not enough storage is available to process this command.

++
> Error: Can't create thread
> While executing: CCL::NEW-TCR, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > :pop

? (dotimes (i 100) (format t "+") (process-run-function :foo (lambda () nil)))

E:\Software\ccl>

This causes a lot of annoying random disconnects with slime.

Process Explorer from sysinternals shows process Virtual Size starting from 1GB, but growing by about 1.5MB per thread created until it reaches 2GB, where everything dies.

CCL:DEFSTATIC is exported; it's counterpart, CCL::DEFSTATICVAR, isn't. It seems like they should both be exported.