+ (concatenate-strings (rest strings) delimiter))))
+
+(defun string-prefix-p (prefix string)
+ (and
+ (>= (length string) (length prefix))
+ (string= prefix string :end2 (length prefix))))
+
+(defun get-all (plist property)
+ (multiple-value-bind (property value tail)
+ (get-properties plist (list property))
+ (when tail
+ (cons value (get-all (cddr tail) property)))))
+
+(defun plist-remove (plist property)
+ (when plist
+ (if (eq (first plist) property)
+ (plist-remove (cddr plist) property)
+ (list*
+ (first plist) (second plist) (plist-remove (cddr plist) property)))))
+
+
+;;;
+
+(defun utf-8-encode (code)
+ (labels ((encode-bytes (bit)
+ (unless (zerop bit)
+ (cons
+ (deposit-field
+ #x80 (byte 7 6) (ldb (byte bit (- bit 6)) code))
+ (encode-bytes (- bit 6)))))
+ (encode-string (length)
+ (map 'string #'code-char
+ (cons
+ (deposit-field
+ (mask-field (byte 7 (- 7 length)) #xFF)
+ (byte 7 (- 6 length))
+ (ldb (byte (+ (* length 6) 6) (* length 6)) code))
+ (encode-bytes (* length 6))))))
+ (cond
+ ((< code #x80) (string (code-char code)))
+ ((< code #x800) (encode-string 1))
+ ((< code #x10000) (encode-string 2))
+ ((< code #x200000) (encode-string 3))
+ ((< code #x4000000) (encode-string 4))
+ ((< code #x80000000) (encode-string 5))
+ (t (error "Invalid char code ~A" code)))))
+
+
+(defun latin1-to-unicode (string)
+ (reduce
+ #'(lambda (str1 str2)
+ (concatenate 'string str1 str2))
+ (map 'list #'(lambda (char) (utf-8-encode (char-code char))) string)))