Commit de8b7451 authored by Daniel Kochmański's avatar Daniel Kochmański

format: fix implementations with broken format

parent e91c4595
......@@ -147,8 +147,10 @@
;;; Entering Corman Lisp debug loop.
(defun bench-report-header ()
(format *benchmark-output*
#-(or clisp ecl gcl cormanlisp) ";; -*- lisp -*- ~a~%;;~%;; Implementation *features*:~%~@<;; ~@;~s~:>~%;;~%"
#+(or clisp ecl gcl cormanlisp) ";; -*- lisp -*- ~a~%;; Implementation *features*: ~s~%;;~%"
#-(or clisp gcl cormanlisp)
";; -*- lisp -*- ~a~%;;~%;; Implementation *features*:~%~@<;; ~@;~s~:>~%;;~%"
#+(or clisp gcl cormanlisp)
";; -*- lisp -*- ~a~%;;~%#| Implementation *features*: ~s |#~%;;~%"
+implementation+ *features*)
(format *benchmark-output*
";; Function real user sys consed~%")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment