Rococo(level2 )

(mymachine   (

(defmacro  demoinside  (expr)

(print  expr)

)

(defmacro  mymachineinside  (exprs)

`(if  ,(eq  exprs  nil) 

      nil

     (progn

          (demoinside ,(car  exprs)) 

         (mymachineinside  ,(cdr  exprs) )

      )

)

)

 

(mymachineinside   (

(defmacro  demo  (expr)

(print  expr)

)

(defmacro  mymachine  (exprs)

`(if  ,(eq  exprs  nil) 

      nil

     (progn

          (demo ,(car  exprs) ) 

         (mymachine  ,(cdr  exprs) )

      )

)

)

 

(defun  test  (n)

(if  (eq  n  nil)

          nil

    (progn      

      (print (car n ) )

      (test  (cdr n) )

    )

)

)

 

 

(test  nil )

(test  '(1) )

(test  '(1 2) )

(test  '(1 2 3) )

(test  '(1 2 3 4) )

(test  '(1 2 3 4 5) )

 

 

))

))