Comment 0 for bug 2035148

(defun bug233 ()
  (let ((lam
          '(lambda (s)
            (declare (type (simple-array *) s))
            (string-right-trim "" s))))
    (funcall (compile nil lam) "abc")))

(bug233) ==> ""
(string-right-trim "" "abc") ==> "abc"
(typep "abc" '(simple-array *)) ==> T