Some more functions

2026-09-07 19:27:01 -07:00
parent 3d7b80691c
commit 6ddf45d68b
5 changed files with 77 additions and 16 deletions
@@ -23,8 +23,6 @@
  (princ datum print-char-fun)
  (funcall (or print-char-fun 'write-byte) ?\n))

-(let ((t1 (make-hash-table))
-      (t2 (make-hash-table)))
-  (puthash t1 'a 'b)
-  (puthash t2 'a 'b)
-  (princln (equal t1 t2)))
+(let ((a [0]))
+  (aset a 1 'a)
+  (princln a))