From 55740edc3e2b3444e7e17978f68df8eced2b19e7 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sat, 21 Apr 2012 16:43:33 +0200 Subject: [PATCH] Use lowercase-only characters for package names to fix compilation on Allegro --- fiveam.asd | 2 +- src/check.lisp | 2 +- src/classes.lisp | 2 +- src/explain.lisp | 2 +- src/fixture.lisp | 2 +- src/packages.lisp | 2 +- src/random.lisp | 2 +- src/run.lisp | 2 +- src/suite.lisp | 2 +- src/test.lisp | 2 +- t/example.lisp | 8 ++++---- t/tests.lisp | 4 ++-- 12 files changed, 16 insertions(+), 16 deletions(-) diff --git a/fiveam.asd b/fiveam.asd index ee2792c..7c16a78 100644 --- a/fiveam.asd +++ b/fiveam.asd @@ -3,10 +3,10 @@ (defpackage :it.bese.FiveAM.system (:use :common-lisp :asdf)) +(defsystem :fiveam (in-package :it.bese.FiveAM.system) -(defsystem :FiveAM :author "Edward Marco Baringer " :properties ((:test-suite-name . :it.bese.fiveam)) :components ((:static-file "fiveam.asd") diff --git a/src/check.lisp b/src/check.lisp index 8325bde..efac176 100644 --- a/src/check.lisp +++ b/src/check.lisp @@ -1,6 +1,6 @@ ;; -*- lisp -*- -(in-package :it.bese.FiveAM) +(in-package :it.bese.fiveam) ;;;; * Checks diff --git a/src/classes.lisp b/src/classes.lisp index 5459580..44a7899 100644 --- a/src/classes.lisp +++ b/src/classes.lisp @@ -1,6 +1,6 @@ ;; -*- lisp -*- -(in-package :it.bese.FiveAM) +(in-package :it.bese.fiveam) (defclass testable-object () ((name :initarg :name :accessor name diff --git a/src/explain.lisp b/src/explain.lisp index 7218733..42c6225 100644 --- a/src/explain.lisp +++ b/src/explain.lisp @@ -1,6 +1,6 @@ ;; -*- lisp -*- -(in-package :it.bese.FiveAM) +(in-package :it.bese.fiveam) ;;;; * Analyzing the results diff --git a/src/fixture.lisp b/src/fixture.lisp index a3de037..07423ad 100644 --- a/src/fixture.lisp +++ b/src/fixture.lisp @@ -1,6 +1,6 @@ ;; -*- lisp -*- -(in-package :it.bese.FiveAM) +(in-package :it.bese.fiveam) ;;;; ** Fixtures diff --git a/src/packages.lisp b/src/packages.lisp index 7e091e8..3628150 100644 --- a/src/packages.lisp +++ b/src/packages.lisp @@ -17,8 +17,8 @@ ;;;; developer to quickly and easily redefine, change, remove and run ;;;; tests. -(defpackage :it.bese.FiveAM (:use :common-lisp :it.bese.arnesi) +(defpackage :it.bese.fiveam (:nicknames :5am :fiveam) (:export ;; creating tests and test-suites diff --git a/src/random.lisp b/src/random.lisp index 615e9ea..b9bf4e7 100644 --- a/src/random.lisp +++ b/src/random.lisp @@ -1,6 +1,6 @@ ;; -*- lisp -*- -(in-package :it.bese.FiveAM) +(in-package :it.bese.fiveam) ;;;; ** Random (QuickCheck-ish) testing diff --git a/src/run.lisp b/src/run.lisp index 0ebc771..50697fc 100644 --- a/src/run.lisp +++ b/src/run.lisp @@ -1,6 +1,6 @@ ;; -*- lisp -*- -(in-package :it.bese.FiveAM) +(in-package :it.bese.fiveam) ;;;; * Running Tests diff --git a/src/suite.lisp b/src/suite.lisp index 505a66f..eb2691d 100644 --- a/src/suite.lisp +++ b/src/suite.lisp @@ -1,6 +1,6 @@ ;; -*- lisp -*- -(in-package :it.bese.FiveAM) +(in-package :it.bese.fiveam) ;;;; * Test Suites diff --git a/src/test.lisp b/src/test.lisp index e046859..ab0feeb 100644 --- a/src/test.lisp +++ b/src/test.lisp @@ -1,6 +1,6 @@ ;; -*- lisp -*- -(in-package :it.bese.FiveAM) +(in-package :it.bese.fiveam) ;;;; * Tests diff --git a/t/example.lisp b/t/example.lisp index 5424f49..be9e113 100644 --- a/t/example.lisp +++ b/t/example.lisp @@ -2,13 +2,13 @@ ;;;; * FiveAM Example (poor man's tutorial) -(asdf:oos 'asdf:load-op :FiveAM) +(asdf:oos 'asdf:load-op :fiveam) -(defpackage :it.bese.FiveAM.example +(defpackage :it.bese.fiveam.example (:use :common-lisp - :it.bese.FiveAM)) + :it.bese.fiveam)) -(in-package :it.bese.FiveAM.example) +(in-package :it.bese.fiveam.example) ;;;; First we need some functions to test. diff --git a/t/tests.lisp b/t/tests.lisp index d3ab4c7..4cb094f 100644 --- a/t/tests.lisp +++ b/t/tests.lisp @@ -1,8 +1,8 @@ ;;;; -*- lisp -*- -(in-package :it.bese.FiveAM) +(in-package :it.bese.fiveam) -(in-suite :it.bese.FiveAM) +(in-suite :it.bese.fiveam) (def-suite test-suite :description "Suite for tests which should fail.") -- 1.7.10.4