From 9a593e3b395c1ba0c6036760c12713d7485f8c54 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 4 Aug 2011 13:56:52 +0000
Subject: cleanup

---
 src/lisp/core.lisp.in | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/lisp')

diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in
index 338d37ee..46d5306f 100644
--- a/src/lisp/core.lisp.in
+++ b/src/lisp/core.lisp.in
@@ -183,6 +183,7 @@
 	   "CONCAT"
 	   "$EditorProgram"
 
+	   "ident?"
 	   ;; numeric support
 	   "%fNaN?"
            ))
@@ -1320,6 +1321,11 @@
 (eval-when (:load-toplevel :execute)
    (pushnew #'shoe-provide-module sb-ext:*module-provider-functions*))
 
+;; Return true if `x' designates an identifier.
+(defun |ident?| (x)
+  (and (symbolp x)
+       (not (null x))))
+
 ;; 
 ;; -*-* Numerics support -*-
 ;; 
-- 
cgit v1.2.3