[Cl-monad-macros-cvs] r7 - trunk

[David Sorokin]

Author: dsorokin
Date: Wed Jan 27 12:59:48 2010
New Revision: 7

Log:
Removed macros UNIVERSAL-LET! and UNIVERSAL-PROGN!.

Modified:
   trunk/cl-monad-macros.lisp

Modified: trunk/cl-monad-macros.lisp
==============================================================================
--- trunk/cl-monad-macros.lisp	(original)
+++ trunk/cl-monad-macros.lisp	Wed Jan 27 12:59:48 2010
@@ -43,8 +43,6 @@
    :with-monad-trans
    :with-inner-monad-trans
    :with-outer-monad-trans
-   :universal-let!
-   :universal-progn!
    :unit
    :funcall!
    :let!
@@ -100,29 +98,6 @@
      , at body))
 
 ;;;
-;;; The Bind Macros
-;;;
-
-(defmacro universal-progn! (&body ms)
-  (reduce #'(lambda (m1 m2)
-	      (let ((x (gensym)))
-		`(funcall!
-		  #'(lambda (,x)
-		      (declare (ignore ,x))
-		      ,m2)
-		  ,m1)))
-	  ms
-	  :from-end t))
-
-(defmacro universal-let! (decls m)
-  (reduce #'(lambda (decl m)
-	      (destructuring-bind (x e) decl
-		`(funcall! #'(lambda (,x) ,m) ,e)))
-	  decls
-	  :from-end t
-	  :initial-value m))
-
-;;;
 ;;; The Identity Monad
 ;;;