Changeset 8764


Ignore:
Timestamp:
03/13/05 15:07:27 (16 years ago)
Author:
piso
Message:

PROCESS-TOPLEVEL-FORM: MACROEXPAND => MACROEXPAND-1

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/compile-file.lisp

    r8637 r8764  
    22;;;
    33;;; Copyright (C) 2004-2005 Peter Graves
    4 ;;; $Id: compile-file.lisp,v 1.61 2005-02-26 02:51:00 piso Exp $
     4;;; $Id: compile-file.lisp,v 1.62 2005-03-13 15:07:27 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    283283            (when (and (symbolp (car form))
    284284                       (macro-function (car form)))
    285               (process-toplevel-form (macroexpand form) stream compile-time-too)
     285              ;; Note that we want MACROEXPAND-1 and not MACROEXPAND here, in
     286              ;; case the form being expanded expands into something that needs
     287              ;; special handling by PROCESS-TOPLEVEL-FORM (e.g. DEFMACRO).
     288              (process-toplevel-form (macroexpand-1 form) stream compile-time-too)
    286289              (return-from process-toplevel-form))
    287290            (when compile-time-too
Note: See TracChangeset for help on using the changeset viewer.