changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/bench/pkg.lisp

changeset 512: 123a7ef21ae3
parent: 8d7d5cf2ee11
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 05 Jul 2024 15:15:36 -0400
permissions: -rw-r--r--
description: tpc-h work, make-load-form for field objects 
     1 ;;; bench.lisp --- Core Benchmarks
     2 
     3 ;; 
     4 
     5 ;;; Code:
     6 (in-package :std-user)
     7 
     8 (defpkg :core/bench
     9   (:use :std-lisp :rt :log :rt/bench)
    10   (:export :core-coverage))
    11 
    12 (in-package :core/bench)
    13 
    14 (defbench simple () "")
    15 
    16 (defun core-coverage ()
    17   (sb-cover:clear-coverage)
    18   (cover:with-coverage
    19     (asdf:load-system :core/tests :force t)
    20     (rt:do-tests :core))
    21   (cover:coverage-report))