Update of /project/cl-prevalence/cvsroot/cl-prevalence/src In directory common-lisp.net:/tmp/cvs-serv20683/src Modified Files: master-slave.lisp prevalence.lisp Removed Files: sysdeps.lisp Log Message: now using S-SYSDEPS Date: Mon Jan 9 20:21:45 2006 Author: scaekenberghe Index: cl-prevalence/src/master-slave.lisp diff -u cl-prevalence/src/master-slave.lisp:1.1 cl-prevalence/src/master-slave.lisp:1.2 --- cl-prevalence/src/master-slave.lisp:1.1 Mon Jun 28 13:57:30 2004 +++ cl-prevalence/src/master-slave.lisp Mon Jan 9 20:21:44 2006 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: master-slave.lisp,v 1.1 2004/06/28 11:57:30 scaekenberghe Exp $ +;;;; $Id: master-slave.lisp,v 1.2 2006/01/09 19:21:44 scaekenberghe Exp $ ;;;; ;;;; The master-slave system keeps one prevalence system in sync with another ;;;; by sending transactions over a socket @@ -16,7 +16,7 @@ (defun start-master-client (prevalence-system &key (host "localhost") (port 7651)) "Start a connection to host:port to deliver transactions from prevalence-system" (stop-master-client prevalence-system) - (let ((out (open-socket-stream host port))) + (let ((out (s-sysdeps:open-socket-stream host port))) (setf (get-transaction-hook prevalence-system) #'(lambda (transaction) (funcall (get-serializer prevalence-system) @@ -38,7 +38,7 @@ (defun start-slave-server (prevalence-system &key (port 7651)) "Start a server on port accepting transactions to be executed on prevalence-system" - (start-standard-server + (s-sysdeps:start-standard-server :port port :name "prevalence-slave-server" :connection-handler #'(lambda (stream) @@ -50,9 +50,5 @@ (eq transaction :stop)) (return) (execute prevalence-system transaction))))))) - -(defun stop-slave-server (name) - "Stop a slave server by name" - (stop-server name)) ;;;; eof Index: cl-prevalence/src/prevalence.lisp diff -u cl-prevalence/src/prevalence.lisp:1.7 cl-prevalence/src/prevalence.lisp:1.8 --- cl-prevalence/src/prevalence.lisp:1.7 Mon Oct 4 16:25:13 2004 +++ cl-prevalence/src/prevalence.lisp Mon Jan 9 20:21:44 2006 @@ -1,6 +1,6 @@ ;;;; -*- mode: Lisp -*- ;;;; -;;;; $Id: prevalence.lisp,v 1.7 2004/10/04 14:25:13 scaekenberghe Exp $ +;;;; $Id: prevalence.lisp,v 1.8 2006/01/09 19:21:44 scaekenberghe Exp $ ;;;; ;;;; Object Prevalence in Common Lisp ;;;; @@ -169,7 +169,7 @@ "Totally destroy system from permanent storage by deleting any files used by the system, remove all root objects" (close-open-streams system :abort abort) (when (probe-file (get-directory system)) - (dolist (pathname (directory (merge-pathnames (make-pathname :type (get-file-extension system)) + (dolist (pathname (directory (merge-pathnames (make-pathname :name :wild :type (get-file-extension system)) (get-directory system)))) (delete-file pathname))) (clrhash (get-root-objects system)))