diff options
Diffstat (limited to 'src/lisp/core.lisp.in')
| -rw-r--r-- | src/lisp/core.lisp.in | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index 6e56a993..49396264 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -84,6 +84,8 @@ ;; Some common data structures "tableValue" ; value associated with a key in a table + "tableLength" ; number of entries in the table. + "tableRemove!" ; remove an entry from a table ;; IO "$InputStream" @@ -455,6 +457,12 @@ (defmacro |tableValue| (ht k) `(gethash ,k ,ht)) +(defmacro |tableRemove!| (ht k) + `(remhash ,k ,ht)) + +(defmacro |tableLength| (ht) + `(hash-table-count ,ht)) + ;; -*- File IO -*- (defparameter |$InputStream| (make-synonym-stream '*standard-input*)) |