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
signature.asc
Description: OpenPGP digital signature