diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-05 15:40:21 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-05 15:40:21 +0000 |
| commit | 104def0e400bbf3a0daed9e490e41485a9213c9d (patch) | |
| tree | 048611db2122fb44a02ed8b4e55a70642e2a95ad /src/lisp | |
| parent | fb3bb6231462cddfb70301ea1672ebc04c8e829a (diff) | |
| download | open-axiom-104def0e400bbf3a0daed9e490e41485a9213c9d.tar.gz | |
more cleanup
Diffstat (limited to 'src/lisp')
| -rw-r--r-- | src/lisp/core.lisp.in | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index d4bf2df8..6e56a993 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -82,6 +82,9 @@ "%BitVector" "%SimpleArray" + ;; Some common data structures + "tableValue" ; value associated with a key in a table + ;; IO "$InputStream" "$OutputStream" @@ -448,6 +451,10 @@ (cond (ver (symbol-value ver)) (t -1)))) +;; -*- Hash table -*- +(defmacro |tableValue| (ht k) + `(gethash ,k ,ht)) + ;; -*- File IO -*- (defparameter |$InputStream| (make-synonym-stream '*standard-input*)) |