Update of /project/gamelib/cvsroot/source In directory clnet:/tmp/cvs-serv2849

Modified Files: graphics.lisp Log Message: IM Sliht changes (essentially ripping out some code taht should've been dead already).

Index: graphics.lisp =================================================================== RCS file: /project/gamelib/cvsroot/source/graphics.lisp,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** graphics.lisp 5 Sep 2006 06:04:32 -0000 1.3 --- graphics.lisp 31 Dec 2006 12:38:40 -0000 1.4 *************** *** 232,235 **** --- 232,238 ---- ))

+ ;;; The following function has Gatlopp-specific code (namely the calls to + ;;; (keys *player*). IThat's why it's being discarded. + #-(and) (defun update-status-window () (when *player* *************** *** 241,244 **** --- 244,248 ---- *controls* (x *player*) (y *player*)))))

+ (defmethod draw ((obj xlib:window)) (cond ((xlib:drawable-equal obj *game-window*)