diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-08-04 13:56:52 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-08-04 13:56:52 +0000 |
| commit | 9a593e3b395c1ba0c6036760c12713d7485f8c54 (patch) | |
| tree | dd8eadbf07dde50ca15d6aa4181c902ad7b09d3c /src/lisp | |
| parent | e77d30ccf1b663aaa6ec1e017fa8e31f3296afeb (diff) | |
| download | open-axiom-9a593e3b395c1ba0c6036760c12713d7485f8c54.tar.gz | |
cleanup
Diffstat (limited to 'src/lisp')
| -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 -*- ;; |