Changeset 4154


Ignore:
Timestamp:
10/01/03 01:14:56 (20 years ago)
Author:
piso
Message:

parse-body => sys::parse-body

File:
1 edited

Legend:

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

    r4057 r4154  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: boot.lisp,v 1.110 2003-09-25 18:19:29 piso Exp $
     4;;; $Id: boot.lisp,v 1.111 2003-10-01 01:14:56 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    353353(defmacro dolist ((var list &optional (result nil)) &body body)
    354354  (multiple-value-bind (forms decls)
    355     (parse-body body nil nil)
     355    (sys::parse-body body nil nil)
    356356    (let ((n-list (gensym)))
    357357      `(do* ((,n-list ,list (cdr ,n-list)))
Note: See TracChangeset for help on using the changeset viewer.