git » jacl.git » commit 5bf893d

diff --git a/boot.lisp b/boot.lisp
index 2df34a6..be5f2f0 100644
--- a/boot.lisp
+++ b/boot.lisp
@@ -166,6 +166,13 @@
            (when ,x (and ,@(cdr forms)))))
       t))
 
+(%export 'let*)
+(defmacro let* (bindings &rest body)
+  (if bindings
+      `(let (,(car bindings))
+         (let* ,(cdr bindings) ,@body))
+      `(progn ,@body)))
+
 (%export 'listp)
 (defun listp (x)
   (or (null x) (consp x)))