From de8b745135516171b169e741c07edc69d38a8e0c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Thu, 19 May 2016 11:36:50 +0200 Subject: [PATCH] format: fix implementations with broken format --- support.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/support.lisp b/support.lisp index 250098c..799450c 100644 --- a/support.lisp +++ b/support.lisp @@ -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~%") -- GitLab