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.