Re: A macOS patch

This is an OpenPGP/MIME signed message (RFC 4880 and 3156)
--LB9XcaTd4MDJpR1GbsWNQieSQsDPseUhG
Content-Type: multipart/mixed; boundary="Tz1kPRAHhxf1bcdSSrwvSiawPYAKV1Z1c";
 protected-headers="v1"
From: "Chun Tian (binghe)" <[email protected]>
To: Camm Maguire <[email protected]>
Cc: [email protected]
Message-ID: <[email protected]>
Subject: Re: A macOS patch
References: <[email protected]>
 <[email protected]>
In-Reply-To: <[email protected]>

--Tz1kPRAHhxf1bcdSSrwvSiawPYAKV1Z1c
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: quoted-printable

Greetings,

On 30/05/25 06:41, Camm Maguire wrote:
> Greetings, and thanks so much for this!
>=20
> "Chun Tian (binghe)" <[email protected]> writes:
>=20
>> +
>>  (defun lib-name (p)
>> -  (if (or (string=3D p "") (string=3D p "libc") (string=3D p "libm"))=
 ""
>> -    (string-concatenate #+darwin "/usr/lib/system/" p #+darwin ".dyli=
b"
>> #+cygwin ".dll" #-(or darwin cygwin) ".so")));FIXME
>> +  (cond ((or (string=3D p "") (string=3D p "libc") (string=3D p "libm=
"))
>> +         "")
>> +        #+darwin ; "/usr/lib/system/" is macOS-specific
>> +        ((string<=3D "libsystem" p)
>=20
> Can this be replaced with
>     ((zerop (string-match "libsystem_" p))
>=20
> ?
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=3D1).GC =
finished]
:info:build [GC for 105 RELOCATABLE-BLOCKS pages..(T=3D0).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 cac=
he)"
: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 cac=
he)"
:info:build Broken at NIL.

I feel that perhaps the function string-match is not available at that mo=
ment.

--Chun


--Tz1kPRAHhxf1bcdSSrwvSiawPYAKV1Z1c--

--LB9XcaTd4MDJpR1GbsWNQieSQsDPseUhG
Content-Type: application/pgp-signature; name="signature.asc"
Content-Description: OpenPGP digital signature
Content-Disposition: attachment; filename="signature.asc"

-----BEGIN PGP SIGNATURE-----

iQIzBAEBCAAdFiEES+aY+4laoC0TwmVKFUkg2jrYR8gFAmg7x84ACgkQFUkg2jrY
R8hmmg//Q5BNNloaZupTaFoyKaGvAhCwV0Bn4nmuEuAHx9O5DCPKk7wxtLp7sJna
/wMAFEQsA7/brh8ljVfjWre128j/eG1y9WQWKlVIRXZDU44DzFZfo255FrL8Uquq
YU+Vpqu9x20ESS3EoPkb8i+te+WqCz/PpbZVshl7KSjRMlblkqg381Ycb3qu4Ghw
Z8izgg89AeK2lnJrcnmZo1B/8Ha3HXGEaS5vcXHR25ankbBJhnl7z2pM+huAsm0Z
j/YGdhBJCDyZP4wtZ2LbuLvrChlz2vufgNFVI7fztQRD63racMpw7FJq6QUSgijj
oz/PBqGWwebTnjIVZ0TdlygySiekble9M/Mq/1I4CU7dQWLQi/kFaeLkrQm8K7r8
KdLW2JG12kqo7V65VjA531KaHhIkWCKK5nGj5rehBCFV4M2C/uwHd+ITV7jO0ls0
ajKH3IpxkDwxcGM/BxhDEdhJncjIKRC/NpO2+w/D+dAQ+PfwFi/a9SeFJSBhEXgi
7yANys0+opQ73k4CArS6iUJ279bTxCd98W6htGQlUTuC+FtncdSGdeVCDqjzCSBl
9yFfim2NRe6lVGapWcOz36N6d9Vv9XztCtukLohc4ok0uPMvOhbNS1l45jMecYXe
YDmEUX3SJ0pbyzw6eExNAMvwvoxdua3AnX6tDShKVfE7pbZmo4k=
=cMDt
-----END PGP SIGNATURE-----

--LB9XcaTd4MDJpR1GbsWNQieSQsDPseUhG--