diff options
Diffstat (limited to 'src/lisp/core.lisp.in')
| -rw-r--r-- | src/lisp/core.lisp.in | 6 |
1 files changed, 6 insertions, 0 deletions
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 -*- ;; |