- (macrolet ((frob (fn)
- `(progn
- (,fn string "abcde" :start1 0 :end1 5)
- (,fn "fghij" string :start2 0 :end2 nil)
- (assert (raises-error? (,fn string "klmno"
- :start1 0 :end1 6)))
- (assert (raises-error? (,fn "pqrst" string
- :start2 -1 :end2 5)))
- (assert (raises-error? (,fn "uvwxy" string
- :start1 4 :end1 2)))
- (assert (raises-error? (,fn string "z" :start2 6 :end2 9))))))
- (format t "~&/Function STRING=, STRING/=, STRING<, STRING>, STRING<=, STRING>=, ...")
- (frob string=)
- (frob string/=)
- (frob string<)
- (frob string>)
- (frob string<=)
- (frob string>=)
- (format t "~&/... STRING-EQUAL, STRING-NOT-EQUAL, STRING-LESSP, ...~%")
- (frob string-equal)
- (frob string-not-equal)
- (frob string-lessp)
- (format t "~&/... STRING-GREATERP, STRING-NOT-GREATERP, STRING-NOT-LESSP~%")
- (frob string-greaterp)
- (frob string-not-greaterp)
- (frob string-not-lessp)))
+ (format t "~&/Function STRING=, STRING/=, STRING<, STRING>, STRING<=, STRING>=, ...")
+ (string-predicate-frob string=)
+ (string-predicate-frob string/=)
+ (string-predicate-frob string<)
+ (string-predicate-frob string>)
+ (string-predicate-frob string<=)
+ (string-predicate-frob string>=))
+(sequence-bounding-indices-test
+ (format t "~&/... STRING-EQUAL, STRING-NOT-EQUAL, STRING-LESSP, ...~%")
+ (string-predicate-frob string-equal)
+ (string-predicate-frob string-not-equal)
+ (string-predicate-frob string-lessp))
+(sequence-bounding-indices-test
+ (format t "~&/... STRING-GREATERP, STRING-NOT-GREATERP, STRING-NOT-LESSP~%")
+ (string-predicate-frob string-greaterp)
+ (string-predicate-frob string-not-greaterp)
+ (string-predicate-frob string-not-lessp))