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