From 3e945ee1ac4ef06f5f01f90ee62e78dca634c9d3 Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Mon, 17 Dec 2012 00:21:14 +0000 Subject: [PATCH] Instance primitive functions as regular ones --- test.lisp | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/test.lisp b/test.lisp index d224c5d..507ebfb 100644 --- a/test.lisp +++ b/test.lisp @@ -12,9 +12,16 @@ (%compile-defun ',name)) (fsetq ,name (lambda ,args ,@body)))) -(defun + (x y) (+ x y)) +(defun = (x y) (= x y)) +(defun + (x y) (+ x y)) +(defun - (x y) (- x y)) +(defun * (x y) (* x y)) +(defun / (x y) (/ x y)) (defun 1+ (x) (+ x 1)) (defun 1- (x) (- x 1)) +(defun cons (x y ) (cons x y)) +(defun car (x) (car x)) +(defun cdr (x) (cdr x)) (defun append (list1 list2) (if (null list1) -- 1.7.10.4