(eql 5 (position-if (lambda (c) (equal #\g c)) seq))
(eql 5 (position-if (lambda (c) (equal #\g c)) seq :from-end t))
(find-if #'characterp seq)
(eql 5 (position-if (lambda (c) (equal #\g c)) seq))
(eql 5 (position-if (lambda (c) (equal #\g c)) seq :from-end t))
(find-if #'characterp seq)