Changeset 11755

Timestamp:

04/12/09 13:47:04 (14 years ago)

Author:

ehuelsmann

Message:

Implement MACROEXPAND-ALL and COMPILER-LET as internal symbols to
the SYSTEM package for people to experiment with.

File:

• trunk/abcl/src/org/armedbear/lisp/precompiler.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/precompiler.lisp

@@ -1019 +1019 @@
 (in-package #:system)
 
+(defun macroexpand-all (form &optional env)
+  (let ((*compile-file-environment* env))
+    (precompile-form form nil)))
+
+(defmacro compiler-let (bindings &body forms &environment env)
+  (let ((bindings (mapcar #'(lambda (binding)
+                              (if (atom binding) (list binding) binding))
+                          bindings)))
+    (progv (mapcar #'car bindings)
+           (mapcar #'(lambda (binding)
+                       (eval (cadr binding))) bindings)
+      (macroexpand-all `(progn ,@forms) env))))
+
 (defun precompile (name &optional definition)
   (unless definition