Update of /project/cl-prevalence/cvsroot/cl-prevalence/test In directory common-lisp.net:/tmp/cvs-serv11775/test
Modified Files: demo2.lisp Log Message: introduced sysdeps file
Date: Mon Jun 28 04:54:49 2004 Author: scaekenberghe
Index: cl-prevalence/test/demo2.lisp diff -u cl-prevalence/test/demo2.lisp:1.1.1.1 cl-prevalence/test/demo2.lisp:1.2 --- cl-prevalence/test/demo2.lisp:1.1.1.1 Sun Jun 20 12:13:42 2004 +++ cl-prevalence/test/demo2.lisp Mon Jun 28 04:54:49 2004 @@ -1,6 +1,6 @@ ;;;; -*- mode: Lisp -*- ;;;; -;;;; $Id: demo2.lisp,v 1.1.1.1 2004/06/20 19:13:42 scaekenberghe Exp $ +;;;; $Id: demo2.lisp,v 1.2 2004/06/28 11:54:49 scaekenberghe Exp $ ;;;; ;;;; A Common Lisp version of the the Java Prevalyer demo2 example ;;;; @@ -298,25 +298,16 @@ (delete-account account-number) (setf (get-option *bank-system* :rollback-on-error) nil)))
-;;; a multi-processing example (openmcl & lispworks only) +;;; a multi-processing example
(defparameter *bank-system-lock* - #+openmcl (ccl:make-lock "bank-system-lock") - #+lispworks (mp:make-lock :name "bank-system-lock") - #+allegro (mp:make-process-lock :name "bank-system-lock") - #-(or openmcl lispworks allegro) nil) + (make-process-lock "bank-system-lock"))
(defun bank-system-guard (thunk) - #+openmcl (ccl:with-lock-grabbed (*bank-system-lock*) (funcall thunk)) - #+lispworks (mp:with-lock (*bank-system-lock*) (funcall thunk)) - #+allegro (mp:with-process-lock (*bank-system-lock*) (funcall thunk)) - #-(or openmcl lispworks allegro) (funcall thunk)) + (with-process-lock (*bank-system-lock*) (funcall thunk)))
(defun spawn-process (name function) - #+openmcl (ccl:process-run-function name function) - #+lispworks (mp:process-run-function name nil function) - #+allegro (mp:process-run-function name function) - #-(or openmcl lispworks allegro) (funcall function)) + (run-process name function))
(defun bank-test-5-setup () (when *bank-system* (close-open-streams *bank-system*))