Skip to content

Instantly share code, notes, and snippets.

@yosugi

yosugi/nlet.lisp

Created February 12, 2013 13:14
Show Gist options
  • Save yosugi/4766190 to your computer and use it in GitHub Desktop.
Save yosugi/4766190 to your computer and use it in GitHub Desktop.
Download ZIP
named let for common lisp
Raw
nlet.lisp
; named let for common lisp
(defmacro nlet (tag var-vals &body body)
`(labels ((,tag ,(mapcar #'car var-vals) ,@body))
(,tag ,@(mapcar #'cadr var-vals))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment