kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-09-20 10:07:45 +03:00
Code Issues Projects Releases Wiki Activity

Use symbol name while comparing mal-symbols

Browse Source
This commit is contained in:
Iqbal Ansari 2016-08-18 20:58:14 +05:30
parent 623c5d2fa8
commit 5cd6b623ab
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
common_lisp/types.lisp
View File

@ -36,7 +36,10 @@
(defun mal-value= (value1 value2)
(and (equal (mal-type value1) (mal-type value2))
(equal (mal-value value1) (mal-value value2))))
(if (mal-symbol-p value1)
(string= (symbol-name (mal-value value1))
(symbol-name (mal-value value2)))
(equal (mal-value value1) (mal-value value2)))))
(defun hash-mal-value (value)
(sxhash (mal-value value)))