Comparison with equal

2026-09-07 18:59:09 -07:00
parent b4492e5cf7
commit 3d7b80691c
4 changed files with 85 additions and 6 deletions
@@ -23,4 +23,8 @@
  (princ datum print-char-fun)
  (funcall (or print-char-fun 'write-byte) ?\n))

-(princln (= 1.0 1))
+(let ((t1 (make-hash-table))
+      (t2 (make-hash-table)))
+  (puthash t1 'a 'b)
+  (puthash t2 'a 'b)
+  (princln (equal t1 t2)))