loop over characters in string, Common Lisp

Question

How would I loop over the characters in a string of text in Common-lisp?

Here's what I want to do, but in Ruby:

string = "bacon"

string.each_char do |c|

    putc c

end

Answer 1

(map nil #'princ "bacon")

or

(loop for c across "bacon" do (princ c))

Answer 2

Looping over a string can be done using loop like so:

(let ((string "bacon")) 

   (loop for idex from 0 to (- (length string)) 1)
      do 
         (princ (string (aref string idex)) ) ))

;=> bacon
;=> NIL

To gather up the characters in string as a list use collect in the loop instead of do like so:

(let ((string "bacon")) 

   (loop for idex from 0 to (- (length string)) 1)
      collect 
         (princ (string (aref string idex)) ) ))

;=> bacon
;=> ("b" "a" "c" "o" "n")