要在常见的lisp中列出没有#\的字符串

(remove-if (lambda (c) (char= c #\#)) '("string1" "string2" "str#ing3"))

(loop [strings '("string1" "string2" "str#ing3")
       result []]
  (if (empty? strings)
    result
    (recur (rest strings)
           (if (not (some #(= % \#) (first strings)))
             (conj result (first strings))
             result))))