+
+;;; a wrapper to hide declared type information from the compiler, so
+;;; we don't get stopped by compiler warnings about e.g. compiling
+;;; (POSITION 1 #() :KEY #'ABS) when #() has been coerced to a string.
+(defun indiscriminate (fun)
+ (lambda (&rest rest) (apply fun rest)))
+
+;;; asymmetric test arg order example from ANSI FIND definition page
+(assert (eql #\space ; original example, depends on ASCII character ordering
+ (find #\d "here are some letters that can be looked at"
+ :test #'char>)))
+(assert (eql #\e ; modified example, depends only on standard a-z ordering
+ (find #\f "herearesomeletters" :test #'char>)))
+(assert (eql 4 ; modified more, avoids charset technicalities completely
+ (find 5 '(6 4) :test '>)))
+