Re: "cl-case" with strings

[Emanuel Berg]

Emanuel Berg <embe8573@student.uu.se> writes:

> So I wrote this.

Non-recursive version - perhaps (?) better:

(defun string-case-non-recursive (string &rest clauses)
  (cl-some (lambda (c)
             (let ((keys (car c)))
               (and (or (eq t          keys)
                        (member string keys) )
                    (cadr c) ))) clauses) )

-- 
underground experts united
http://user.it.uu.se/~embe8573