Changes to linj to allow creation of static classes and slots.

static.patch

diff --git a/linj.lisp b/linj.lisp
old mode 100644
new mode 100755
index 3254021..7feac70
--- a/linj.lisp
+++ b/linj.lisp
@@ -4312,7 +4312,7 @@ a return-statement or into a break statement" e))
 	     (append (list :reader (second options) :writer `(setf ,(second options)))
 		     (rest (rest options)))))
 	   ((:reader :writer :type :documentation :initarg
-	     :initform :final :transient :strictfp :visibility)
+	     :initform :final :transient :strictfp :visibility :allocation)
 	    (cons (first options)
 		  (cons (second options)
 			(refine-slot-options name (rest (rest options))))))))))
@@ -4955,7 +4955,7 @@ a return-statement or into a break statement" e))
       (ecase (first option)
 	(:body (setf body (append body (rest option))))
 	;; see <../2001/20010324#* Linj> for a discussion on the following
-	((:make-parse-method :make-xml-parse-method :visibility :documentation :category)
+	((:make-parse-method :make-xml-parse-method :visibility :documentation :category :static)
 	 (setf new-options (append option new-options)))
 	((:default-initargs :constructor)
 	 (setf new-options (cons (first option) (cons (rest option) new-options))))))