[langband-cvs] CVS: langband game.lisp,1.114,1.115 generics.lisp,1.59,1.60

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

Update of /cvsroot/langband/langband
In directory usw-pr-cvs1:/tmp/cvs-serv1756

Modified Files:
	game.lisp generics.lisp 
Log Message:
minor tweaking

Index: game.lisp
===================================================================
RCS file: /cvsroot/langband/langband/game.lisp,v
retrieving revision 1.114
retrieving revision 1.115
diff -C2 -d -r1.114 -r1.115
*** game.lisp	19 May 2002 17:48:32 -0000	1.114
--- game.lisp	20 May 2002 08:47:06 -0000	1.115
***************
*** 43,47 ****
  ;;  (push :using-sound *features*)
    ;; this one should be turned on in releases and in curses
!   (pushnew :hide-warnings *features*)
  
  ;;  (pushnew :maintainer-mode *features*)
--- 43,47 ----
  ;;  (push :using-sound *features*)
    ;; this one should be turned on in releases and in curses
! ;;  (pushnew :hide-warnings *features*)
  
  ;;  (pushnew :maintainer-mode *features*)

Index: generics.lisp
===================================================================
RCS file: /cvsroot/langband/langband/generics.lisp,v
retrieving revision 1.59
retrieving revision 1.60
diff -C2 -d -r1.59 -r1.60
*** generics.lisp	18 May 2002 20:57:54 -0000	1.59
--- generics.lisp	20 May 2002 08:47:06 -0000	1.60
***************
*** 608,609 ****
--- 608,615 ----
  (defgeneric deliver-elemental-damage! (variant source target element damage)
    (:documentation "Gives out decent elemental damage to a target."))
+ 
+ (defgeneric is-stat-array? (variant obj)
+   (:docuemntation "Returns T if the object is a stat-array."))
+ 
+ (defgeneric get-object-effect (variant the-object effect)
+   (:documentation "Returns the wanted effect (or NIL) from the object."))