git » jacl.git » commit abf1a0b

diff --git a/boot.lisp b/boot.lisp
index 0aff31a..63d7810 100644
--- a/boot.lisp
+++ b/boot.lisp
@@ -481,6 +481,16 @@
       "NIL"
       (\. symbol |name|)))
 
+(defun %parse-step-forms (step-forms)
+  )
+
+(%export 'do)
+(defmacro do (step-forms &rest more)
+  (let* ((end-test-and-result-forms (car more))
+         (end-test-form (car end-test-and-result-forms))
+         (result-forms (cdr end-test-and-result-forms))
+         (body (cdr more)))))
+
 (%export 'dolist)
 (defmacro dolist (binding &rest body)
   (let ((var         (car binding))