diff --git a/support.lisp b/support.lisp index 250098c44daa86132617aff62a54b8a11eaa289c..799450c9927a9fbed89ca1e5176cfc27a6a6560d 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~%")