RosettaCodeData/Task/Literals-String/Common-Lisp/literals-string.lisp

(let ((colon #\:)
      (str "http://www.rosettacode.com/"))
   (format t "colon found at position ~d~%" (position colon str)))