Improve macro expansion and returns

src/kernel.sl

@@ -87,7 +87,8 @@
            (throw 'argument-error))))
      (apply 'list 'funcall (apply 'list 'lambda
                                   (reverse vars)
-                                  '(declare (name nil))
+                                  (list 'declare (list 'name
+                                                       (make-symbol "let")))
                                    body)
             (reverse vals)))))
 
@@ -139,7 +140,5 @@
   (list 'condition-case form
         (pair :finally unwind-forms)))
 
-(defun test ()
-  (return-from test 10))
-
-(println  (test))
+(defmacro return (&opt value)
+  (list 'return-from nil value))