[langband-cvs] CVS: langband view.lisp,1.51,1.51.2.1
Status: Alpha
Brought to you by:
stig
From: Stig E S. <st...@us...> - 2003-11-22 19:11:21
|
Update of /cvsroot/langband/langband In directory sc8-pr-cvs1:/tmp/cvs-serv11894 Modified Files: Tag: v017_loop_experiment_2 view.lisp Log Message: sbcl optimisation code to remove note Index: view.lisp =================================================================== RCS file: /cvsroot/langband/langband/view.lisp,v retrieving revision 1.51 retrieving revision 1.51.2.1 diff -C2 -d -r1.51 -r1.51.2.1 *** view.lisp 23 Jun 2003 11:45:44 -0000 1.51 --- view.lisp 22 Nov 2003 19:11:18 -0000 1.51.2.1 *************** *** 484,490 **** (if (> y py) (1- y) ! y)))) ! ! (when (bit-flag-set? (cave-flags dungeon xx yy) +cave-glow+) (bit-flag-add! info +cave-seen+))))) --- 484,491 ---- (if (> y py) (1- y) ! y))) ! (cave-flags (cave-flags dungeon xx yy))) ! (declare (type fixnum cave-flags)) ! (when (bit-flag-set? cave-flags +cave-glow+) (bit-flag-add! info +cave-seen+))))) |