;;;-*- Mode: Lisp; Package: COMMON-LISP-USER -*- (defpackage "UTILS" (:nicknames "U") #+sbcl(:use "COMMON-LISP") #+(and mcl digitool)(:import-from :ccl "LINE") (:export collecting collect collect-append collecting-into collect-into collect-append-to inca subst-substrings last-char first-char string-member string-member-equal find-equal search-all parse-string string-parse ncat ncat-with-prefix concat concat-substrings concat-with-infix concat-with-infix-suffix subst-chars-by-substrings remove-substrings count-substring string-to-keyword string-starts-with-p string-ends-with-p trim-ends trim-last *sgml-char-entity-table* *sgml-entity-to-mac-char-table* ensure-keyword with-stream-lines with-file-lines convert-string when-let if-let chars-to-entities now with-gensyms split code-tamil-string tamil-string<)) ;;; EOF