X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=layers%2Fentities.lisp;fp=layers%2Fentities.lisp;h=dae061dcf85f0bffc9d972490d341b7324ef28d2;hb=f4f51b6f1f774bc2e93f93d47d3471a6c6a49767;hp=2119a5b5a2aa1f4d65b3288b830aa3b09c27def2;hpb=0a63af2cc1f946ff65ccea1168b2933ba1e8a24c;p=rulp%2Frulp.git

diff --git a/layers/entities.lisp b/layers/entities.lisp
index 2119a5b..dae061d 100644
--- a/layers/entities.lisp
+++ b/layers/entities.lisp
@@ -29,7 +29,7 @@
 ;; polarity direction and it is not possible to check if someone is watching in what
 ;; direction.
 ;;
-(in-package :layers)
+(in-package :rulp.layers)
 
 (defun abs- (a b)
   "This is a rapid function used for the norm, it can be disappear or be modified in future commits"
@@ -91,7 +91,14 @@
       (setf i (cons 0 value)))
     (setf (cdr i) value)))
 
-(defmethod norm ((e t)) ; (e) and ((e t)) are identical, this is clearer
+(defmethod (setf width) (value (s entity))
+  nil
+  )
+
+(defmethod (setf height) (value (s entity))
+  nil)
+
+(defmethod norm ((e t))         ; (e) and ((e t)) are identical, this is clearer
   "classical norm, it works with everything but classes"
   (let ((xe (car e))
         (ye (cdr e)))