Removed some boilerplate.

[uxul-world.git] / add-object.lisp

diff --git a/add-object.lisp b/add-object.lisp
index a68a2cb..077a2ae 100755 (executable)
--- a/add-object.lisp
+++ b/add-object.lisp
@@ -1,4 +1,4 @@
-;;; Copyright 2009 Christoph Senjak
+;;; Copyright 2009-2011 Christoph Senjak
 
 (in-package :uxul-world)
 
@@ -37,6 +37,10 @@ for. Classes: ~A ~A"
   (must-be-listened-by obj place 'player 'moving-enemy 'moving-item)
   (call-next-method))
 
+(defmethod add-object ((obj teleporter) (place room))
+  (must-be-listened-by obj place 'player)
+  (call-next-method))
+
 (defmethod add-object ((obj moving-enemy) (place room))
   (i-wanna-listen-to obj place 'player 'stone)
   (must-be-listened-by obj place 'player)