[Check that offset is valid in (SETF PAGE-OFFSET NEW QUERY-VIEW)
clinton@unknownlamer.org**20090301233030
 Ignore-this: 3051b7e61fa496ff8cc880b0ee29bce6
] hunk ./src/query-view.lisp 142
+(defmethod (setf page-offset) :around (new (view query-paged-view-mixin))
+  (let ((count (page-count view)))
+    (call-next-method (cond ((< new 0) 0)
+			    ((> new count) count)
+			    (t new))
+		      view)))
+