correcting input and rulp main loop

[rulp/rulp.git] / layers / entities.lisp

diff --git a/layers/entities.lisp b/layers/entities.lisp
index 2119a5b..dae061d 100644 (file)
--- 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)))