Zander671/cl-xdg-trash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix format

Browse Source
This commit is contained in:
Alexander Rosenberg
2026-01-31 04:03:06 -08:00
parent 8eb0015593
commit d205dde599
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
clash/format.lisp
View File

@ -192,9 +192,9 @@ parse-format-string)."
((eq :index part) ((eq :index part)
(format stream "~A" index)) (format stream "~A" index))
((and (consp part) (eq :index (car part))) ((and (consp part) (eq :index (car part)))
(case (car part) (case (cdr part)
(:left (format stream "~VD" max-index-length index)) (:left (format stream "~V@<~D~>" max-index-length index))
(:right (format stream "~V@<~D~>" max-index-length index)) (:right (format stream "~VD" max-index-length index))
(t (format stream "~A" index)))) (t (format stream "~A" index))))
((stringp part) ((stringp part)
(format stream "~A" part)) (format stream "~A" part))