Changeset 4452 for trunk/j/src/org/armedbear/lisp/compiler.lisp

Timestamp:

10/18/03 23:10:01 (19 years ago)

Author:

piso

Message:

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

File:

• trunk/j/src/org/armedbear/lisp/compiler.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/compiler.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: compiler.lisp,v 1.55 2003-10-18 22:57:25 piso Exp $
+;;; $Id: compiler.lisp,v 1.56 2003-10-18 23:10:01 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -250 +250 @@
 ;; use the (faster) special operator implementation.
 (defun expand-macro (form)
-  (do () ()
+  (loop
     (multiple-value-bind (result expanded) (macroexpand-1 form)
       (unless expanded (return-from expand-macro result))