[langband-cvs] CVS: langband view.lisp,1.51,1.51.2.1

[Stig E S. <st...@us...>]

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