From: David Vázquez <davazp@gmail.com>
Date: Mon, 6 May 2013 13:09:13 +0000 (+0100)
Subject: Redefine ATOM
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=e14753c04f867bc0fa82dd78f2d01ec140c2c72b;p=jscl.git

Redefine ATOM
---

diff --git a/src/boot.lisp b/src/boot.lisp
index 45bf307..78d8d08 100644
--- a/src/boot.lisp
+++ b/src/boot.lisp
@@ -381,6 +381,9 @@
 (defun plusp (x) (< 0 x))
 (defun minusp (x) (< x 0))
 
+(defun atom (x)
+  (not (consp x)))
+
 (defmacro doseq ((elt seq &optional index) &body body)
   (let* ((nseq (gensym "seq"))
          (i (or index (gensym "i")))