Great. Please note that I'll be away on vacation next week, so if you send patches after Thursday, I won't be able to make a new RDNZL release before November.
The diffs below fix two areas: (1) clean up external-format initialization, and (2) enable rdnzl to run (as separate in-Lisp processes) without locking out the rest of Lisp.
Edi, I didn't try to commit these changes even though I think I still may have write-access to the module on common-lisp.net. The diffs below are relative to a checkout done today. If you'd like me to submit the diffs in some other way, let me know.
Charley
===== Begin diffs =====
Index: port-acl.lisp =================================================================== RCS file: /project/rdnzl/cvsroot/RDNZL/port-acl.lisp,v retrieving revision 1.6 diff -c -r1.6 port-acl.lisp *** port-acl.lisp 10 Aug 2006 15:36:47 -0000 1.6 --- port-acl.lisp 16 Oct 2006 21:25:44 -0000 *************** *** 61,67 **** (ash ,get-next-octet 8)))))
;; force auto-compilation. Suppress the unnecessary notes. ! (with-output-to-string (*standard-output*) (string-to-octets "foo" :external-format :rdnzl-fat))
(in-package :rdnzl) --- 61,67 ---- (ash ,get-next-octet 8)))))
;; force auto-compilation. Suppress the unnecessary notes. ! (with-output-to-string (*system-messages*) (string-to-octets "foo" :external-format :rdnzl-fat))
(in-package :rdnzl) *************** *** 144,149 **** --- 144,150 ---- (ff:def-foreign-call (,lisp-name ,c-name) ,(arg-spec arg-list) :returning ,(ffi-map-type result-type) :strings-convert t + :release-heap :when-ok :convention ':c) ,@(when (eq result-type 'ffi-wide-char) `((excl:fwrap ',lisp-name 'wchar_t-wrapper 'wchar_t-retval))))))
===== End diffs =====
--- Charles A. Cox, Franz Inc. 555 12th Street, Suite 1450 Internet: cox@franz.com Oakland, CA 94607 WWW: http://www.franz.com/ Phone: (510) 452-2000; FAX: (510) 452-0182