From: Stelian Ionescu <sionescu@cddr.org>
Date: Sat, 21 Apr 2012 14:43:33 +0000 (+0200)
Subject: Use lowercase-only characters for package names to fix compilation on Allegro
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=55740edc3e2b3444e7e17978f68df8eced2b19e7;p=fiveam.git

Use lowercase-only characters for package names to fix compilation on Allegro
---

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 <mb@bese.it>"
     :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.")