cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-27 09:27:37 +01:00
Code Issues

- added compilation macro to compile constant using ECL.

Browse Source
This commit is contained in:
cage 2022-03-20 12:48:27 +01:00
parent 0b1250cf78
commit 283e3d852c
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mtree-utils.lisp
View File

@ -502,7 +502,9 @@
(declare (ignore child child-pos))
(sort-children object))
(alexandria:define-constant +tree-arrow-char+ #\BLACK_RIGHT-POINTING_ISOSCELES_RIGHT_TRIANGLE
(alexandria:define-constant +tree-arrow-char+
#+sbcl #\BLACK_RIGHT-POINTING_ISOSCELES_RIGHT_TRIANGLE
#+ecl (code-char 128898)
:test #'char=)
(defmethod tree->text-lines ((object m-tree)