Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

fix a couple of style warnings in r+-trees

darcs-hash:20041130130515-ed5a3-3e70d2fba5a82008e1d845651fc788c609f0a005.gz
  • Loading branch information...
commit 52bbb9b96b9fee144f54d903c84a65e453a1055b 1 parent 6d75e07
csr21 authored
Showing with 3 additions and 1 deletion.
  1. +3 −1 rplus-trees.lisp
View
4 rplus-trees.lisp
@@ -11,7 +11,9 @@
(defclass r+-tree (r-tree)
((fill-factor :initarg :fill-factor :accessor fill-factor)))
(defmethod make-spatial-tree :around ((kind (eql :r+)) &rest initargs)
- (cerror "R+ trees seem broken to me. Really make an R+ tree?")
+ (declare (ignore initargs))
+ (cerror "Make an R+-tree nevertheless"
+ "R+-trees' dynamic insertion is broken.")
(call-next-method))
(defmethod make-spatial-tree ((kind (eql :r+)) &rest initargs)
(apply #'make-instance 'r+-tree
Please sign in to comment.
Something went wrong with that request. Please try again.