Changeset 4452


Ignore:
Timestamp:
10/18/03 23:10:01 (19 years ago)
Author:
piso
Message:

EXPAND-MACRO: use LOOP instead of DO () () ...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/compiler.lisp

    r4451 r4452  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: compiler.lisp,v 1.55 2003-10-18 22:57:25 piso Exp $
     4;;; $Id: compiler.lisp,v 1.56 2003-10-18 23:10:01 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    250250;; use the (faster) special operator implementation.
    251251(defun expand-macro (form)
    252   (do () ()
     252  (loop
    253253    (multiple-value-bind (result expanded) (macroexpand-1 form)
    254254      (unless expanded (return-from expand-macro result))
Note: See TracChangeset for help on using the changeset viewer.