From: David Vazquez <davazp@gmail.com>
Date: Mon, 17 Dec 2012 00:21:14 +0000 (+0000)
Subject: Instance primitive functions as regular ones
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=3e945ee1ac4ef06f5f01f90ee62e78dca634c9d3;p=jscl.git

Instance primitive functions as regular ones
---

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)