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)))