diff options
Diffstat (limited to 'src/lisp/core.lisp.in')
| -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*)) |