diff options
Diffstat (limited to 'src/lisp')
-rw-r--r-- | src/lisp/core.lisp.in | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index 7bdf5d13..a7f244d8 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -86,6 +86,8 @@ "tableValue" ; value associated with a key in a table "tableLength" ; number of entries in the table. "tableRemove!" ; remove an entry from a table + "ref" + "deref" ;; IO "$InputStream" @@ -494,6 +496,13 @@ (defmacro |tableLength| (ht) `(hash-table-count ,ht)) +;; -*- Reference -*- +(defmacro |ref| (v) + `(cons ,v nil)) + +(defmacro |deref| (r) + `(car ,r)) + ;; -*- File IO -*- (defparameter |$InputStream| (make-synonym-stream '*standard-input*)) |