@@ -1,7 +1,7 @@

 (defpackage :curly-bracens

-  (:use :cl :named-readtables))

+  (:use :cl :named-readtables)

+  (:shadow :if :function :return))

 (in-package :curly-bracens)

-(shadow 'if)

 (defmacro if (condition then &optional (else-sym nil e-s-p) (else nil e-p))

   (assert (and e-s-p e-p (eq else-sym 'else)))

@@ -9,6 +9,15 @@

           ,then

           ,else))

+(defmacro function (&body info)

+  (cl:if (symbolp (car info))

+      (destructuring-bind (name args &rest body) info

+         `(defun ,name ,args

+            ,@body))

+      (destructuring-bind (args &rest body) info

+        `(lambda ,args

+           ,@body))))

+

 (defun read-progn (stream char)

   (declare (ignore char))

   (cons 'progn

@@ -19,6 +28,26 @@

   (:macro-char #\} (lambda (&rest r) (declare (ignore r))) nil)

   (:macro-char #\{ 'read-progn nil))

+(defvar return 'return)

+

+

+

+

+

+

+(function do_thing () {

+  return 1;

+})

+

+(function () {

+  return 1;

+})

+

+

+

+

+

+

 (if (> 3 1) {

   (princ :hi)

   (terpri)