wrong result from compiled STRING/=

[Paul F. Dietz]

(defun bug088 ()
  (let* ((s1 "Aaba")
         (s2 "x")
         (f1 `(lambda (p8) (string/= ,s1 ,s2 :start1 1 :end2 0 :end1 p8)))
         (p 1)
         (direct (string/= s1 s2 :start1 1 :end2 0 :end1 p))
         (compiled (funcall (compile nil f1) p)))
    (values direct compiled)))

(bug088) ==> NIL, 1

(NIL is the correct result, as both ranges are of length 0 so the implied substrings are equal)