Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Attila Lendvai
cl-bench
Commits
b0ec9497
Commit
b0ec9497
authored
May 13, 2016
by
Daniel Kochmański
Browse files
defpackage: remove in favour of the file-local package definitions
parent
249a8424
Changes
13
Hide whitespace changes
Inline
Side-by-side
defpackage.lisp
deleted
100644 → 0
View file @
249a8424
;;; defpackage.lisp -- DEFPACKAGE forms for the cl-bench modules
;;
;; Time-stamp: <2004-01-01 emarsden>
(
defpackage
:cl-bench
(
:use
:common-lisp
#+
cmu
:ext
#+
clisp
:ext
#+
allegro
:excl
))
(
defpackage
:cl-bench.gabriel
(
:use
:common-lisp
)
(
:export
#:boyer
#:browse
#:dderiv-run
#:deriv-run
#:run-destructive
#:run-div2-test1
#:run-div2-test2
#:div2-l
#:run-fft
#:run-frpoly/fixnum
#:run-frpoly/bignum
#:run-frpoly/float
#:run-puzzle
#:run-tak
#:run-ctak
#:run-trtak
#:run-takl
#:run-stak
#:fprint/pretty
#:fprint/ugly
#:run-traverse
#:run-triangle
))
(
defpackage
:cl-bench.math
(
:use
:common-lisp
)
(
:export
#:run-factorial
#:run-fib
#:run-fib-ratio
#:run-ackermann
#:run-mandelbrot/complex
#:run-mandelbrot/dfloat
#:run-mrg32k3a
))
(
defpackage
:cl-bench.crc
(
:use
:common-lisp
)
(
:export
#:run-crc40
))
(
defpackage
:cl-bench.bignum
(
:use
:common-lisp
)
(
:export
#:run-elem-100-1000
#:run-elem-1000-100
#:run-elem-10000-1
#:run-pari-100-10
#:run-pari-200-5
#:run-pari-1000-1
#:run-pi-decimal/small
#:run-pi-decimal/big
#:run-pi-atan
))
(
defpackage
:cl-bench.ratios
(
:use
:common-lisp
)
(
:export
#:run-pi-ratios
))
(
defpackage
:cl-bench.hash
(
:use
:common-lisp
)
(
:export
#:run-slurp-lines
#:hash-strings
#:hash-integers
))
(
defpackage
:cl-bench.boehm-gc
(
:use
:common-lisp
)
(
:export
#:gc-benchmark
))
(
defpackage
:cl-bench.deflate
(
:use
:common-lisp
)
(
:export
#:run-deflate-file
))
(
defpackage
:cl-bench.arrays
(
:use
:common-lisp
)
(
:export
#:bench-1d-arrays
#:bench-2d-arrays
#:bench-3d-arrays
#:bench-bitvectors
#:bench-strings
#:bench-strings/adjustable
#:bench-string-concat
#:bench-search-sequence
))
(
defpackage
:cl-bench.richards
(
:use
:common-lisp
)
(
:export
#:richards
))
(
defpackage
:cl-bench.clos
(
:use
:common-lisp
)
(
:export
#:run-defclass
#:run-defmethod
#:make-instances
#:make-instances/simple
#:methodcalls/simple
#:methodcalls/simple+after
#:methodcalls/complex
#:run-eql-fib
))
(
defpackage
:cl-bench.misc
(
:use
:common-lisp
)
(
:export
#:run-compiler
#:run-fasload
#:run-permutations
#:walk-list/seq
#:walk-list/mess
))
(
defpackage
:cl-ppcre-test
(
:use
:common-lisp
)
(
:export
#:test
))
;; EOF
files/arrays.lisp
View file @
b0ec9497
;; benchmarks speed of array and sequence operations
;;
;; Author: Eric Marsden <emarsden@laas.fr>
;; Time-stamp: <20
03-12-29 emarsden
>
;; Time-stamp: <20
16-05-10 13:07:34 jack
>
;;
;;
;; Timing tests for creation, initialization, access and garbage
...
...
@@ -10,6 +10,16 @@
;; NOTE: be careful running these in CMUCL on Linux with sizes larger
;; than your RAM; you will most likely crash your machine.
(
defpackage
:cl-bench.arrays
(
:use
:common-lisp
)
(
:export
#:bench-1d-arrays
#:bench-2d-arrays
#:bench-3d-arrays
#:bench-bitvectors
#:bench-strings
#:bench-strings/adjustable
#:bench-string-concat
#:bench-search-sequence
))
(
in-package
:cl-bench.arrays
)
...
...
files/bignum.lisp
View file @
b0ec9497
;;; bignum.lisp -- bignum operations from Bruno Haible
;;
;; Time-stamp: <20
04-01-09 emarsden
>
;; Time-stamp: <20
16-05-10 13:12:42 jack
>
;;
;; code from Bruno Haible <haible@ilog.fr>
...
...
@@ -19,6 +19,17 @@
;; B. (from Pari)
;; u=1;v=1;p=1;q=1;for(k=1..1000){w=u+v;u=v;v=w;p=p*w;q=lcm(q,w);}
(
defpackage
:cl-bench.bignum
(
:use
:common-lisp
)
(
:export
#:run-elem-100-1000
#:run-elem-1000-100
#:run-elem-10000-1
#:run-pari-100-10
#:run-pari-200-5
#:run-pari-1000-1
#:run-pi-decimal/small
#:run-pi-decimal/big
#:run-pi-atan
))
(
in-package
:cl-bench.bignum
)
...
...
files/boehm-gc.lisp
View file @
b0ec9497
;;; boehm-gc.lisp -- benchmark testing GC performance
;;
;; Time-stamp: <2002-11-22 emarsden>
;; Time-stamp: <2016-05-10 13:07:17 jack>
;;
;;
;; see <URL:http://www.hpl.hp.com/personal/Hans_Boehm/gc/gc_bench.html>
;; for original code in C, C++, Java and Scheme. This is adapted from
...
...
@@ -38,6 +39,9 @@
;; better time performance. This benchmark should be run in a 32MB
;; heap, though we don't currently know how to enforce that uniformly.
(
defpackage
:cl-bench.boehm-gc
(
:use
:common-lisp
)
(
:export
#:gc-benchmark
))
(
in-package
:cl-bench.boehm-gc
)
...
...
files/clos.lisp
View file @
b0ec9497
;; clos.lisp -- CLOS benchmarking code
;;
;; Author: Eric Marsden <emarsden@laas.fr>
;; Time-stamp: <20
03-12-30 emarsden
>
;; Time-stamp: <20
16-05-10 13:10:15 jack
>
;;
;;
;; This file does some benchmarking of CLOS functionality. It creates
...
...
@@ -47,6 +47,16 @@
;; Note: warnings about undefined accessors and types are normal when
;; compiling this code.
(
defpackage
:cl-bench.clos
(
:use
:common-lisp
)
(
:export
#:run-defclass
#:run-defmethod
#:make-instances
#:make-instances/simple
#:methodcalls/simple
#:methodcalls/simple+after
#:methodcalls/complex
#:run-eql-fib
))
(
in-package
:cl-bench.clos
)
...
...
files/crc40.lisp
View file @
b0ec9497
...
...
@@ -2,6 +2,9 @@
;;
;; from Raymond Toy
(
defpackage
:cl-bench.crc
(
:use
:common-lisp
)
(
:export
#:run-crc40
))
(
in-package
:cl-bench.crc
)
...
...
files/deflate.lisp
View file @
b0ec9497
;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: png; -*-
;;;; -------------------------------------------------------------------
-----------------------
;;;; -------------------------------------------------------------------
;;;; Title: The DEFLATE Compression (rfc1951)
;;;; Created: Thu Apr 24 22:12:58 1997
;;;; Author: Gilbert Baumann <unk6@rz.uni-karlsruhe.de>
;;;; -------------------------------------------------------------------
-----------------------
;;;; -------------------------------------------------------------------
;;;; (c) copyright 1997,1998 by Gilbert Baumann
(
defpackage
:cl-bench.deflate
(
:use
:common-lisp
)
(
:export
#:run-deflate-file
))
(
in-package
:cl-bench.deflate
)
...
...
@@ -289,7 +292,7 @@
(
defun
run-deflate-file
()
(
test-deflate-file
"
files/
message.gz"
))
(
test-deflate-file
"
bench:test;
message.gz"
))
;; EOF
files/gabriel.lisp
View file @
b0ec9497
...
...
@@ -28,7 +28,30 @@
;; - some renamings to be closer to standard CL style (eg global
;; variable names with asterisk). Only partially done...
(
defpackage
:cl-bench.gabriel
(
:use
:common-lisp
)
(
:export
#:boyer
#:browse
#:dderiv-run
#:deriv-run
#:run-destructive
#:run-div2-test1
#:run-div2-test2
#:div2-l
#:run-fft
#:run-frpoly/fixnum
#:run-frpoly/bignum
#:run-frpoly/float
#:run-puzzle
#:run-tak
#:run-ctak
#:run-trtak
#:run-takl
#:run-stak
#:fprint/pretty
#:fprint/ugly
#:run-traverse
#:run-triangle
))
(
in-package
:cl-bench.gabriel
)
...
...
files/hash.lisp
View file @
b0ec9497
;; hashtable and READ-LINE benchmarking code
;;
;; some code by Paul Foley
;; Time-stamp: <20
03-12-23 emarsden
>
;; Time-stamp: <20
16-05-10 13:11:57 jack
>
(
defpackage
:cl-bench.hash
(
:use
:common-lisp
)
(
:export
#:run-slurp-lines
#:hash-strings
#:hash-integers
))
(
in-package
:cl-bench.hash
)
...
...
files/math.lisp
View file @
b0ec9497
;;; math.lisp -- various numerical operations
;;
;; Time-stamp: <20
04-01-05 emarsden
>
;; Time-stamp: <20
16-05-10 13:13:24 jack
>
;;
;; some basic mathematical benchmarks
(
defpackage
:cl-bench.math
(
:use
:common-lisp
)
(
:export
#:run-factorial
#:run-fib
#:run-fib-ratio
#:run-ackermann
#:run-mandelbrot/complex
#:run-mandelbrot/dfloat
#:run-mrg32k3a
))
(
in-package
:cl-bench.math
)
...
...
files/misc.lisp
View file @
b0ec9497
;;; misc.lisp
;;;
;;; Time-stamp: <20
04-06-28 emarsden
>
;;; Time-stamp: <20
16-05-13 11:47:06 jack
>
(
defpackage
:cl-bench.misc
(
:use
:common-lisp
)
(
:export
#:run-compiler
#:run-fasload
#:run-permutations
#:walk-list/seq
#:walk-list/mess
))
(
in-package
:cl-bench.misc
)
(
defun
run-compiler
()
(
compile-file
(
make-pathname
:directory
'
(
:relative
"files"
)
:name
"gabriel"
:type
"olisp"
)
(
compile-file
#P"bench:test;gabriel.lisp"
:print
nil
#-
gcl
:verbose
#-
gcl
nil
))
(
defun
run-fasload
()
(
load
(
compile-file-pathname
(
make-pathname
:directory
'
(
:relative
"files"
)
:name
"gabriel"
:type
"olisp"
))))
#P"bench:test;gabriel.lisp"
)))
;; by Gene Luks (adapted from the Larceny benchmarks)
...
...
files/ratios.lisp
View file @
b0ec9497
;;; ratios.lisp -- calculate digits of pi using ratios
;;
;; Time-stamp: <20
03-12-29 emarsden
>
;; Time-stamp: <20
16-05-10 13:12:20 jack
>
;;
;;
;; This code was posted to comp.lang.lisp on 2001-12-28 by Vladimir
...
...
@@ -37,6 +37,9 @@
;; find 1040 digits of the number pi
;; (find-pi 120 150000 1039) ; 6.5 min, CLISP // ?? ACL
(
defpackage
:cl-bench.ratios
(
:use
:common-lisp
)
(
:export
#:run-pi-ratios
))
(
in-package
:cl-bench.ratios
)
...
...
files/richards.lisp
View file @
b0ec9497
;;; richards.lisp -- operating system simulation code
;;
;; Time-stamp: <20
03-12-30 emarsden
>
;; Time-stamp: <20
16-05-10 13:09:23 jack
>
;; ======================================================================
...
...
@@ -31,6 +31,9 @@
;; Application, but I think it tests the efficiency of the basic language
;; mechanisms fairly well.
(
defpackage
:cl-bench.richards
(
:use
:common-lisp
)
(
:export
#:richards
))
(
in-package
:cl-bench.richards
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment