artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mes: simple-format: support ~A, ~S.

Browse source 
* module/mes/display.scm (simple-format): support ~A, ~S.
This commit is contained in:
Jan Nieuwenhuizen 2018-02-03 20:06:38 +01:00
parent d176d1bf6c
commit 3d93eea456
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
module/mes/display.mes
View file

@ -182,11 +182,15 @@
(simple-format (cdr lst) args)) (simple-format (cdr lst) args))
(let ((c (cadr lst))) (let ((c (cadr lst)))
(case c (case c
((#\A) (display (car args) port))
((#\a) (display (car args) port)) ((#\a) (display (car args) port))
((#\s) (write (car args) port))) ((#\S) (write (car args) port))
((#\s) (write (car args) port))
(else (display (car args) port)))
(simple-format (cddr lst) (cdr args))))))) (simple-format (cddr lst) (cdr args)))))))
(if destination (simple-format lst rest) (if destination (simple-format lst rest)
(with-output-to-string (with-output-to-string
(lambda () (simple-format lst rest)))))) (lambda () (simple-format lst rest))))))
(define format simple-format) (define format simple-format)