Commit b0ec9497 authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

defpackage: remove in favour of the file-local package definitions

parent 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
;; benchmarks speed of array and sequence operations
;;
;; Author: Eric Marsden <emarsden@laas.fr>
;; Time-stamp: <2003-12-29 emarsden>
;; Time-stamp: <2016-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)
......
;;; bignum.lisp -- bignum operations from Bruno Haible
;;
;; Time-stamp: <2004-01-09 emarsden>
;; Time-stamp: <2016-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)
......
;;; 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)
......
;; clos.lisp -- CLOS benchmarking code
;;
;; Author: Eric Marsden <emarsden@laas.fr>
;; Time-stamp: <2003-12-30 emarsden>
;; Time-stamp: <2016-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)
......
......@@ -2,6 +2,9 @@
;;
;; from Raymond Toy
(defpackage :cl-bench.crc
(:use :common-lisp)
(:export #:run-crc40))
(in-package :cl-bench.crc)
......
;;;; -*- 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
......@@ -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)
......
;; hashtable and READ-LINE benchmarking code
;;
;; some code by Paul Foley
;; Time-stamp: <2003-12-23 emarsden>
;; Time-stamp: <2016-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)
......
;;; math.lisp -- various numerical operations
;;
;; Time-stamp: <2004-01-05 emarsden>
;; Time-stamp: <2016-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)
......
;;; misc.lisp
;;;
;;; Time-stamp: <2004-06-28 emarsden>
;;; Time-stamp: <2016-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)
......
;;; ratios.lisp -- calculate digits of pi using ratios
;;
;; Time-stamp: <2003-12-29 emarsden>
;; Time-stamp: <2016-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)
......
;;; richards.lisp -- operating system simulation code
;;
;; Time-stamp: <2003-12-30 emarsden>
;; Time-stamp: <2016-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)
......
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