Skip to content

Instantly share code, notes, and snippets.

@daniel-cussen

daniel-cussen/gist:840791

Created February 23, 2011 17:43
Show Gist options
  • Save daniel-cussen/840791 to your computer and use it in GitHub Desktop.
Save daniel-cussen/840791 to your computer and use it in GitHub Desktop.
Download ZIP
Logical operations to implement Lisp in Lisp
Raw
gistfile1.cl
(defun null. (x)
(eq x '()))
(defun and. (x y)
(cond (x
(cond (y 't)
('t '())))
('t '())))
(defun or. (x y)
(cond (x 't)
(y 't)
('t '())))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment