Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
16 lines (13 sloc) 582 Bytes
;;;; -*- Mode: LISP; Syntax: COMMON-LISP; indent-tabs-mode: nil; coding: utf-8; show-trailing-whitespace: t -*-
;;;; Copyright (C) 2011 Anton Vodonosov (
;;;; See LICENSE for details.
(in-package #:test-grid-reporting)
(defmacro my-time ((title) &body body)
"Ensure meaningful title is printed before the
timing (CCL's TIME prings the code, but SBCL's prints nothing before
the timing, so it's difficult to see what is what when many TIME
calls are used in the code."
(format t ,title)
(time ,@body)))
Jump to Line
Something went wrong with that request. Please try again.