Macros in Common Lisp

#octobanana

5 years ago

c8b94eea

@cd4310f4 Thanks for the tip! I also removed the redundant progn.

@@ -1,6 +1,7 @@
 (defmacro deffun (name params &body body)
   (let ((var (surround-with-asterisks name)))
-    `(progn (defvar ,var
+    `(defvar ,var
       '(defun ,name ,params
         ,@body))
-    (eval ,var))))
+    `(defun ,name ,params
+      ,@body)))

anon

5 years ago

cd4310f4

just put the code again after the DEFVAR. No need for EVAL...