[cl-prevalence-cvs] CVS update: cl-prevalence/test/demo2.lisp

[Sven Van Caekenberghe]

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*))