X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/e8fd1a9a2f3b68a8aee14b8776ff8398ba717eef..7dd8b2259b4303e256c06178a5092cefa61bf4c1:/src/description.lisp?ds=sidebyside

diff --git a/src/description.lisp b/src/description.lisp
index 073dc94..2ce2c81 100644
--- a/src/description.lisp
+++ b/src/description.lisp
@@ -101,13 +101,7 @@
 			function))))))))
 
 
-(defmacro with-described-object ((object description &rest args)
-				 &body body)
-    `(funcall-with-described-object 
-      (lambda () ,@body)
-      ,object
-      ,description
-      ,@args))
+
 		   
 (defmacro define-description (name &optional superdescriptions &body options)
   (let ((description-name (defining-description name)))