Changeset 4698


Ignore:
Timestamp:
11/11/03 19:32:43 (18 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r4697 r4698  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.22 2003-11-11 19:20:54 piso Exp $
     4;;; $Id: jvm.lisp,v 1.23 2003-11-11 19:32:43 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    17141714          (block-exit (gensym))
    17151715          (*blocks* (acons block-label block-exit *blocks*)))
    1716      (do* ((forms (cdr rest) (cdr forms)))
    1717           ((null forms))
     1716     (do ((forms (cdr rest) (cdr forms)))
     1717         ((null forms))
    17181718       (compile-form (car forms) (cdr forms)))
    17191719     (emit 'label `,block-exit)))
    17201720
    17211721(defun compile-progn (form)
    1722   (dolist (form (cdr form))
    1723     (compile-form form)))
     1722  (do ((forms (cdr form) (cdr forms)))
     1723      ((null forms))
     1724    (compile-form (car forms) (cdr forms))))
    17241725
    17251726(defun compile-setq (form)
Note: See TracChangeset for help on using the changeset viewer.