[Openmcl-devel] I frequently run into this problem doing a wildcarded directory listing on windows in1.9-r15765 (WindowsX8664)

[Kalman Reti]

On Sat, Jun 22, 2013 at 7:47 AM, Kalman Reti <kalman.reti at gmail.com> wrote:

> and I cannot figure out a way past it:


In windows explorer the file name shows up as:

execute-button-app_ç☂𠀀.pet_2013-06-11-09-42-21_28472.dom

which I'm not sure will get through html, but after app_ there is a
c-cedilla, an
umbrella-looking character and a funny Korean-looking glyph that looks like
a
conjoined lowercase h and backwards capital L rotated ninety-degrees
clockwise.

Clearly something weird happened when that file was created, but its
existence should
not make it impossible to enumerate a directory, should it?

>
> ? (length (setq all (directory "c:/Foobarwork/2013-06-11/*.*")))
> > Error: The value #\U+20000 is not of the expected type (MOD 1114112).
> > While executing: CCL::%GET-NATIVE-UTF-16-CSTRING, in process listener(1).
> > Type :POP to abort, :R for a list of available restarts.
> > Type :? for other options.
> 1 > :b
> *(22429728) : 0 (%GET-NATIVE-UTF-16-CSTRING #<A Foreign Pointer #x6019AC>)
> 687
>  (224297C0) : 1 (GET-FOREIGN-NAMESTRING #<A Foreign Pointer #x6019AC>) 37
>  (224297D8) : 2 (%READ-DIR 78) 181
>  (224297F0) : 3 (%FILES-IN-DIRECTORY "/Foobarwork/2013-06-11/"
> #P"c:/Foobarwork/2013-06-11/*.*" 150 (:DIRECTORIES T :FILES T :ALL ...)
> #S(CCL::DIRECTORY-RESULT :TRUENAMES #<HASH-TABLE :TEST STRING= size 23/60
> #x21034A397D> :DIRECTORIES-SEEN ("c:/Foobarwork/2013-06-11/"))) 2613
>  (224298E0) : 4 (DIRECTORY "c:/Foobarwork/2013-06-11/*.*" :DIRECTORIES T
> :FILES T :ALL T :DIRECTORY-PATHNAMES T :INCLUDE-EMACS-LOCKFILES NIL :TEST
> NIL :FOLLOW-LINKS T) 677
>  (22429990) : 5 (CALL-CHECK-REGS DIRECTORY "c:/Foobarwork/2013-06-11/*.*")
> 221
>  (224299C8) : 6 (CHEAP-EVAL-IN-ENVIRONMENT ((DIRECTORY
> "c:/Foobarwork/2013-06-11/*.*")) NIL) 1805
>  (22429A18) : 7 (CHEAP-EVAL-IN-ENVIRONMENT (LENGTH (SETQ ALL #)) NIL) 3453
>  (22429A68) : 8 (TOPLEVEL-EVAL (LENGTH (SETQ ALL #)) NIL) 693
>  (22429B00) : 9 (READ-LOOP :INPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO*
> #x210069DFFD> :OUTPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO*
> #x210069DE9D> :BREAK-LEVEL 0 :PROMPT-FUNCTION #<Compiled-function
> (:INTERNAL CCL::READ-LOOP) (Non-Global)  #x100518CEF>) 2261
>  (22429D58) : 10 (RUN-READ-LOOP :BREAK-LEVEL 0) 157
>  (22429D80) : 11 (TOPLEVEL-LOOP) 101
>  (22429DA8) : 12 (FUNCALL #'#<(:INTERNAL (TOPLEVEL-FUNCTION
> (CCL::LISP-DEVELOPMENT-SYSTEM T)))>) 101
>  (22429DC8) : 13 (FUNCALL #'#<(:INTERNAL CCL::MAKE-MCL-LISTENER-PROCESS)>)
> 645
>  (22429E60) : 14 (RUN-PROCESS-INITIAL-FORM #<TTY-LISTENER listener(1)
> [Active] #x210069CC7D> (#<COMPILED-LEXICAL-CLOSURE # #x210069C7AF>)) 669
>  (22429EF0) : 15 (FUNCALL #'#<(:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL
> (PROCESS)))> #<TTY-LISTENER listener(1) [Active] #x210069CC7D>
> (#<COMPILED-LEXICAL-CLOSURE # #x210069C7AF>)) 573
>  (22429F98) : 16 (FUNCALL #'#<(:INTERNAL
> CCL::THREAD-MAKE-STARTUP-FUNCTION)>) 277
> 1 >
>
> The directory in question has vanilla-looking (if somewhat long)
> pathnames.  The problem is that
> I cannot find a way to skip the offending entry and continue with the rest
> of the wildcard
> directory listing.  Is there such a way that I am missing?
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.clozure.com/pipermail/openmcl-devel/attachments/20130622/5b6de073/attachment.htm>