Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

16 lines (13 sloc) 0.582 kB
;;;; -*- Mode: LISP; Syntax: COMMON-LISP; indent-tabs-mode: nil; coding: utf-8; show-trailing-whitespace: t -*-
;;;; Copyright (C) 2011 Anton Vodonosov (avodonosov@yandex.ru)
;;;; 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."
`(progn
(format t ,title)
(fresh-line)
(time ,@body)))
Jump to Line
Something went wrong with that request. Please try again.