WOW, I'm truly impressed, nice work...
This one works great.....
(setq a "this is a test")
"this is a test"
(setq b "this isn't a test")
"this isn't a test"
(compfun a b)
((T "this is") (nil "n't") (T " a test"))
But this one returns them out of order, can this be fixed?
(setq a "this is a X test")
"this is a X test"
(compfun a b)
((T "test") (T "this is") (nil "n't") (T " a ") (nil "X "))