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.