Skip to content

Instantly share code, notes, and snippets.

@daniel-cussen

daniel-cussen/gist:841330

Created February 23, 2011 22:23
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save daniel-cussen/841330 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save daniel-cussen/841330 to your computer and use it in GitHub Desktop.
Download ZIP
Another example
Raw
gistfile1.txt
CL-USER> (repl)
> ((label my-append (lambda (x y) (cond (eq '() x) y
't (cons (car x) (my-append (cdr x) y)))))
(cons '1 (cons '2 '()))
(cons '3 (cons '4 '())))
(1 . (2 . (3 . (4 . NIL))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment