Changeset 4154 for trunk/j/src/org/armedbear/lisp/boot.lisp

Timestamp:

10/01/03 01:14:56 (20 years ago)

Author:

piso

Message:

parse-body => sys::parse-body

File:

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

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

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: boot.lisp,v 1.110 2003-09-25 18:19:29 piso Exp $
+;;; $Id: boot.lisp,v 1.111 2003-10-01 01:14:56 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -353 +353 @@
 (defmacro dolist ((var list &optional (result nil)) &body body)
   (multiple-value-bind (forms decls)
-    (parse-body body nil nil)
+    (sys::parse-body body nil nil)
     (let ((n-list (gensym)))
       `(do* ((,n-list ,list (cdr ,n-list)))