[rdnzl-devel] Re: rdnzl, multiprocessing, Allegro, windows, locking

[Charles A. Cox]

> 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 at franz.com           Oakland, CA  94607
WWW: http://www.franz.com/        Phone: (510) 452-2000; FAX: (510) 452-0182