     } cond ;
 
 : lisp-string>factor ( str -- quot )
-    lisp-expr convert-form ;
+    lisp-expr expand-macros convert-form ;
 
 : lisp-eval ( str -- * )
     lisp-string>factor call ;


: convert-list-form ( cons -- quot )
    dup car
    { { [ dup lisp-macro?  ] [ drop macro-expand ] }
      { [ dup lisp-symbol? ] [ form-dispatch ] }
     [ drop convert-general-form ]
    } cond ;

    swap '[ , cut '[ @ , seq>list ] call , call call ] ;

: normal-lambda ( body vars -- quot )
    localize-lambda <lambda> lambda-rewrite '[ @ compose call call ] 1quotation ;
PRIVATE>

: convert-lambda ( cons -- quot )
