Greetings,

On 30/05/25 06:41, Camm Maguire wrote:
> Greetings, and thanks so much for this!
> 
> "Chun Tian (binghe)" <binghe.l...@gmail.com> writes:
> 
>> +
>>  (defun lib-name (p)
>> -  (if (or (string= p "") (string= p "libc") (string= p "libm")) ""
>> -    (string-concatenate #+darwin "/usr/lib/system/" p #+darwin ".dylib"
>> #+cygwin ".dll" #-(or darwin cygwin) ".so")));FIXME
>> +  (cond ((or (string= p "") (string= p "libc") (string= p "libm"))
>> +         "")
>> +        #+darwin ; "/usr/lib/system/" is macOS-specific
>> +        ((string<= "libsystem" p)
> 
> Can this be replaced with
>     ((zerop (string-match "libsystem_" p))
> 
> ?
Unfortunately, neither (zerop (string-match "libsystem_" p) nor (eql
(string-match "libsystem_" p) 0) doesn't work:

:info:build COMPILER>>>[GC for 32767 CONTIGUOUS-BLOCKS pages..(T=1).GC finished]
:info:build [GC for 105 RELOCATABLE-BLOCKS pages..(T=0).GC finished]
:info:build unixport/gcl1 -eval "(mapc 'load (directory \"gcl1/*.done\"))" \
:info:build        -eval "(setq compiler::*dump-inl-hash* t)" \
:info:build        -compile lsp/gcl_s.lsp -o gcl1/gcl_s.o
:info:build Error:ERROR:  dlopen failure on "/usr/lib/libsystem_platform.dylib":
"dlopen(/usr/lib/libsystem_platform.dylib, 0x0009): tried:
'/usr/lib/libsystem_platform.dylib' (no such file),
'/System/Volumes/Preboot/Cryptexes/OS/usr/lib/libsystem_platform.dylib' (no such
file), '/usr/lib/libsystem_platform.dylib' (no such file, not in dyld cache)"
:info:build Fast links are on: do (si::use-fast-links nil) for debugging
:info:build Signalled by "AN ANONYMOUS FUNCTION".
:info:build ERROR:  dlopen failure on "/usr/lib/libsystem_platform.dylib":
"dlopen(/usr/lib/libsystem_platform.dylib, 0x0009): tried:
'/usr/lib/libsystem_platform.dylib' (no such file),
'/System/Volumes/Preboot/Cryptexes/OS/usr/lib/libsystem_platform.dylib' (no such
file), '/usr/lib/libsystem_platform.dylib' (no such file, not in dyld cache)"
:info:build Broken at NIL.

I feel that perhaps the function string-match is not available at that moment.

--Chun

Attachment: signature.asc
Description: OpenPGP digital signature

Reply via email to