Changeset 15331

Timestamp:

Apr 17, 2012, 6:29:47 AM (13 years ago)

Author:

Gary Byers

Message:

CHEAP-EVAL-IN-ENVIRONMENT: don't try to avoid compilation of MACROLET
or SYMBOL-MACROLET. (The compiler does more sanity checking, the
implementation of MACROLET here didn't handle SETF names, and MACROLET's
just going to have to compile some expansion functions anyhow ...)

File:

• trunk/source/level-1/l1-readloop.lisp (modified) (2 diffs)

trunk/source/level-1/l1-readloop.lisp

@@ -799 +799 @@
                (cheap-eval-in-environment (if test true false) env)))
             ((eq sym 'locally) (progn-in-env (%cdr form) env env))
+            #|
             ((eq sym 'symbol-macrolet)
              (multiple-value-bind (body decls) (parse-body (cddr form) env)
@@ -807 +808 @@
                                                   (mapcar #'(lambda (m)
                                                               (destructuring-bind (name arglist &body body) m
+                                                                (setq name (nx-need-function-name name))
                                                                 (list name (enclose (parse-macro name arglist body env)
                                                                                     env))))
                                                           (cadr form)))))
                (progn-in-env (cddr form) temp-env temp-env)))
+            |#
             ((and (symbolp sym) 
                   (compiler-special-form-p sym)