From e14753c04f867bc0fa82dd78f2d01ec140c2c72b Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Mon, 6 May 2013 14:09:13 +0100 Subject: [PATCH] Redefine ATOM --- src/boot.lisp | 3 +++ 1 file changed, 3 insertions(+) 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"))) -- 1.7.10.4