Changeset 15331


Ignore:
Timestamp:
Apr 17, 2012, 1:29:47 PM (7 years ago)
Author:
gb
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-readloop.lisp

    r13343 r15331  
    799799               (cheap-eval-in-environment (if test true false) env)))
    800800            ((eq sym 'locally) (progn-in-env (%cdr form) env env))
     801            #|
    801802            ((eq sym 'symbol-macrolet)
    802803             (multiple-value-bind (body decls) (parse-body (cddr form) env)
     
    807808                                                  (mapcar #'(lambda (m)
    808809                                                              (destructuring-bind (name arglist &body body) m
     810                                                                (setq name (nx-need-function-name name))
    809811                                                                (list name (enclose (parse-macro name arglist body env)
    810812                                                                                    env))))
    811813                                                          (cadr form)))))
    812814               (progn-in-env (cddr form) temp-env temp-env)))
     815            |#
    813816            ((and (symbolp sym)
    814817                  (compiler-special-form-p sym)
Note: See TracChangeset for help on using the changeset viewer.