diff options
author | dos-reis <gdr@axiomatics.org> | 2011-05-12 15:39:14 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-05-12 15:39:14 +0000 |
commit | 665cb7df0fd6106b61a88667ae132e613d395cc4 (patch) | |
tree | 7add9286226ea268e888be8a1c55da11fc182210 /src/lisp/core.lisp.in | |
parent | a8b9a2f5f65820ce836353e0d25070fa8eaeece9 (diff) | |
download | open-axiom-665cb7df0fd6106b61a88667ae132e613d395cc4.tar.gz |
* boot/initial-env.lisp (MAKE-HASHTABLE): Remove.
(BEVC-MAKE-FULL): Likewise.
(MAKE-BVEC): Likewise.
* boot/tokens.boot (shoeKeyTableCons): Adjust.
(shoePunCons): Likewise.
(shoeDfu): Likewise.
(shoeXref): Likewise.
Diffstat (limited to 'src/lisp/core.lisp.in')
-rw-r--r-- | src/lisp/core.lisp.in | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index 49396264..74f43cf1 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -83,8 +83,9 @@ "%SimpleArray" ;; Some common data structures - "tableValue" ; value associated with a key in a table - "tableLength" ; number of entries in the table. + "makeTable" ; construct a hash table with a given comp function + "tableValue" ; value associated with a key in a table + "tableLength" ; number of entries in the table. "tableRemove!" ; remove an entry from a table ;; IO @@ -132,6 +133,7 @@ "%ByteArray" "makeByteArray" + "makeBitVector" "makeString" "%hasFeature" @@ -454,6 +456,9 @@ (t -1)))) ;; -*- Hash table -*- +(defmacro |makeTable| (cmp) + `(make-hash-table :test ,cmp)) + (defmacro |tableValue| (ht k) `(gethash ,k ,ht)) @@ -1303,6 +1308,9 @@ :element-type '(unsigned-byte 8) :initial-element 0)) +(defmacro |makeBitVector| (n) + `(make-array ,n :element-type 'bit :initial-element 0)) + (defun |makeString| (n &optional (c (code-char 0))) (make-string n :initial-element c)) |