Commit 47ae7908 authored by Daniel Kochmański's avatar Daniel Kochmański

format: use portable report-header

Some implementations (namely clisp, gcl and preasumbly cormanlisp)
doesn't support ~<..~:>. Be cleaver and put the comment in #| |#.
parent de8b7451
;;; graph-report.lisp
;;
;; Author: Johannes Grdem <johs@copyleft.no>
;; Author: Johannes Grrdem <johs@copyleft.no>
;; Time-stamp: <2016-05-13 12:25:11 jack>
;;
;;
......
......@@ -139,17 +139,8 @@
(namestring *output-dir*)
year month date hour minute)))
;; grr, CLISP doesn't implement ~<..~:>
;; CormanLisp bug:
;;; An error occurred in function FORMAT:
;;; Error: Invalid format directive : character #\< in control string ";; -*- lisp -*- ~a~%;;~%;; Implementation *features*:~%~@<;; ~@;~s~:>~%;;~%"
;;; Entering Corman Lisp debug loop.
(defun bench-report-header ()
(format *benchmark-output*
#-(or clisp gcl cormanlisp)
";; -*- lisp -*- ~a~%;;~%;; Implementation *features*:~%~@<;; ~@;~s~:>~%;;~%"
#+(or clisp gcl cormanlisp)
";; -*- lisp -*- ~a~%;;~%#| Implementation *features*: ~s |#~%;;~%"
+implementation+ *features*)
(format *benchmark-output*
......
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