Changeset 4899


Ignore:
Timestamp:
11/27/03 14:44:37 (18 years ago)
Author:
piso
Message:

COMPILE-PROGN: (progn)

File:
1 edited

Legend:

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

    r4874 r4899  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.44 2003-11-23 17:59:53 piso Exp $
     4;;; $Id: jvm.lisp,v 1.45 2003-11-27 14:44:37 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    18541854
    18551855(defun compile-progn (form for-effect)
    1856   (do ((forms (cdr form) (cdr forms)))
    1857       ((null forms))
    1858     (compile-form (car forms) (cdr forms))))
     1856  (cond ((null (cdr form))
     1857         (emit-push-nil)
     1858         (emit-store-value))
     1859        (t
     1860         (do ((forms (cdr form) (cdr forms)))
     1861             ((null forms))
     1862           (compile-form (car forms) (cdr forms))))))
    18591863
    18601864(defun compile-setq (form for-effect)
Note: See TracChangeset for help on using the changeset viewer.