summaryrefslogtreecommitdiff
blob: 9e7865cebe6d203905d37de6047a198533a2d31b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
diff -ur prevalence.orig/prevalence.lisp prevalence/prevalence.lisp
--- prevalence.orig/prevalence.lisp	2003-06-10 05:53:58.000000000 -0500
+++ prevalence/prevalence.lisp	2004-01-09 23:30:42.118636816 -0600
@@ -28,6 +28,7 @@
    #:transaction
    #:no-rollback-error
    #:initiates-rollback)
+  #+cmu (:shadow #:close)
   (:documentation "A proof of concept Common Lisp Prevalence system"))
 
 (in-package :clp)
@@ -146,7 +147,7 @@
 (defmethod close ((system prevalence-system) &key abort)
   (with-slots (transaction-log-stream) system
     (when transaction-log-stream
-      (close transaction-log-stream :abort abort)
+      (cl:close transaction-log-stream :abort abort)
       (setf transaction-log-stream nil))))
 
 (defmethod serializable-slots append ((transaction transaction))
Only in prevalence: prevalence.lisp.~1.15.~