From cdf411804c807517c7f266c5b568b338c55df2c2 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 1 Nov 2008 00:01:00 -0700 Subject: Bugfixes. --- monads.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/monads.lisp b/monads.lisp index dcc82e6..8586f5b 100644 --- a/monads.lisp +++ b/monads.lisp @@ -179,7 +179,7 @@ (defclass ,class-name ,bases ,slots) (defmethod monadic-instance ((monad (eql ',class-name))) (load-time-value (make-instance ',class-name ,@initargs))) - (defmethod monadic-map ((,monad-param ,class-name) map-param) + (defmethod monadic-map ((,monad-param ,class-name) ,map-param) (declare (ignorable ,monad-param)) ,@map-body) (defmethod monadic-join ((,monad-param ,class-name) @@ -210,7 +210,7 @@ (apply #'monadic-join (monadic-instance monad) container-of-containers rest)) (defmethod monadic-unit ((monad symbol) element &rest rest) - (appy #'monadic-unit (monadic-instance monad) element rest)) + (apply #'monadic-unit (monadic-instance monad) element rest)) ;;; ;;; Define the LIST-MONAD, succinctly -- cgit v1.2.3