[Bese-devel] arnesi_dev patches

[Kiyoshi Mizumaru]

Hi,

Would you please have a look at the following diffs?
One is for Allegro CL's modern case mode, and the other is for
Lispworks conditional compile.

I'm not familiar with darcs, so please forgive me for not sending this
in darcs send.

Thanks in advance,
Kiyoshi


https://github.com/kmizumar/arnesi_dev/commit/aeb41d4b5284559ac07c458cdc315e4aebd42cb9

diff -rN old-arnesi_dev/src/hash.lisp new-arnesi_dev/src/hash.lisp
16,18c16,18
<                (reader (make-lookup-name name "GET-" name))
<                (writer (make-lookup-name name "GET-" name))
<                (rem-er (make-lookup-name name "REM-" name))
---
>                (reader (make-lookup-name name (symbol-name :get-) name))
>                (writer (make-lookup-name name (symbol-name :get-) name))
>                (rem-er (make-lookup-name name (symbol-name :rem-) name))


https://github.com/kmizumar/arnesi_dev/commit/c8aad5de20bb0b14f0b7db8cd47f2c1884dd4dd6

diff -rN old-arnesi_dev/src/lexenv.lisp new-arnesi_dev/src/lexenv.lisp
260c260
< #+(and lispworks macosx)
---
> #+(or lispworks5 lispworks6)
264c264
< #+(and lispworks macosx)
---
> #+(or lispworks5 lispworks6)
274c274
< #+(and lispworks macosx)
---
> #+(or lispworks5 lispworks6)
282c282
< #+(and lispworks macosx)
---
> #+(or lispworks5 lispworks6)
286c286
< #+(and lispworks macosx)
---
> #+(or lispworks5 lispworks6)
296c296
< #+(and lispworks macosx)
---
> #+(or lispworks5 lispworks6)
304c304
< #+(and lispworks (or win32 linux))
---
> #+lispworks4
308c308
< #+(and lispworks (or win32 linux))
---
> #+lispworks4
313c313
< #+(and lispworks (or win32 linux))
---
> #+lispworks4
319c319
< #+(and lispworks (or win32 linux))
---
> #+lispworks4
326c326
< #+(and lispworks (or win32 linux))
---
> #+lispworks4
332c332
< #+(and lispworks (or win32 linux))
---
> #+lispworks4
486c486
< #+(and lispworks (or win32 linux))
---
> #+lispworks4
491c491
< #+(and lispworks (or win32 linux))
---
> #+lispworks4
496c496
< #+(and lispworks (or win32 linux))
---
> #+lispworks4
501c501
< #+(and lispworks (or win32 linux))
---
> #+lispworks4