Skip to content

Instantly share code, notes, and snippets.

@alex-eg

alex-eg/case-char.lisp

Created May 25, 2016 08:22
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save alex-eg/9127f3a03b4e6aba0a8516e9cdcc07af to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save alex-eg/9127f3a03b4e6aba0a8516e9cdcc07af to your computer and use it in GitHub Desktop.
Download ZIP
Raw
case-char.lisp
(defmacro case-char (c &body body)
(let ((conditions (mapcar (lambda (branch)
(list (list 'char= c (car branch))
(cadr branch)))
body)))
`(cond ,@conditions)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment