Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: 6784d57ea1
Fetching contributors…

Cannot retrieve contributors at this time

12 lines (8 sloc) 0.34 kB
(provide 'pattern-matching)
(do-patterns (list 1 2 3)
(cons first rest) (list first rest)) -> (1 (2 3))
(let* ((val (list 1 2 3))
(cons-pattern-result (cons-pattern '(first rest) val)))
(cond (cons-pattern-result (let ((first (elt cons-pattern-result 0))
(second (elt cons-pattern-result 1)))
(defmacro do-patterns
Jump to Line
Something went wrong with that request. Please try again.