[the-feebs-war-cvs] r20 -

[Gustavo Milare]

Author: gmilare
Date: Tue Aug  3 20:17:55 2010
New Revision: 20

Log:
Small bug fix.


Modified:
   system.lisp

Modified: system.lisp
==============================================================================
--- system.lisp	(original)
+++ system.lisp	Tue Aug  3 20:17:55 2010
@@ -27,10 +27,10 @@
 ;;; This class is used by the system
 
 (defclass object ()
-  ((direction  :accessor object-direction  :initarg :direction :initform 0)
+  ((direction  :accessor object-direction  :initarg :direction)
    (x-position :accessor object-x-position :initarg :x-position)
    (y-position :accessor object-y-position :initarg :y-position)
-   (lifetime   :accessor object-lifetime   :initarg :lifetime)))
+   (lifetime   :accessor object-lifetime   :initarg :lifetime :initform 0)))
 
 (defclass feeb (object)
   (;; These are structures accessible from behavior functions.