[mcclim-cvs] CVS mcclim/Apps/Inspector

[pscott]

Update of /project/mcclim/cvsroot/mcclim/Apps/Inspector
In directory clnet:/tmp/cvs-serv26056

Modified Files:
	test.lisp 
Log Message:
Added political correctness. This file was originally for my own use 
only, and it got committed to the CVS repository by accident. Now that 
it's here, I've decided to clean it up a little bit. To that end, I also 
added a comment explaining what the file is for.


--- /project/mcclim/cvsroot/mcclim/Apps/Inspector/test.lisp	2005/03/11 21:25:29	1.1
+++ /project/mcclim/cvsroot/mcclim/Apps/Inspector/test.lisp	2007/02/08 05:50:02	1.2
@@ -1,3 +1,7 @@
+;; This is a test file which doesn't properly test anything. It just
+;; has a bunch of code which may occasionally be useful for testing
+;; Clouseau, if you squint at it. All data dictated by wild whims.
+
 (in-package :clouseau)
 
 (defclass oddity ()
@@ -17,8 +21,8 @@
 
 (defstruct historical-event
   (severity 5 :type (integer 0 10))
-  (tragedy "" :type string)
-  (farce "" :type string))
+  (attribute "" :type string)
+  (pirate "" :type string))
 
 (defclass packrat (queer-oddity salad-mixin)
   ((name :initform "Willy the Packrat"
@@ -30,9 +34,9 @@
    (an-array :initform #2A((1 0 0) (0 1 0) (0 0 1))
 	     :documentation "An identity matrix")
    (global-fun :initform #'inspector)
-   (creationism :initform (make-historical-event :severity 7
-						 :tragedy "Scopes monkey trial"
-						 :farce "ID Creationism"))
+   (reunion :initform (make-historical-event :severity 7
+					     :attribute "Sephiroth!"
+					     :pirate "Sephiroth?"))
    (l :initform #'(lambda (x)
 		    (declare (number x))
 		    (1+ x)))