[gamelib-cvs] graphics.lisp

[Ingvar Mattsson]

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*)