Changeset 4989


Ignore:
Timestamp:
12/06/03 03:35:51 (18 years ago)
Author:
piso
Message:

COMPILE-LET*-VARS

File:
1 edited

Legend:

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

    r4987 r4989  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.53 2003-12-06 02:44:23 piso Exp $
     4;;; $Id: jvm.lisp,v 1.54 2003-12-06 03:35:51 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    18101810  (let ((i (fill-pointer *locals*)))
    18111811    (dolist (varspec varlist)
    1812       (let (var initform)
     1812      (let (var initform specialp)
    18131813        (if (consp varspec)
    1814             (setq var (car varspec)
     1814            (setf var (car varspec)
    18151815                  initform (cadr varspec))
    1816             (setq var varspec
     1816            (setf var varspec
    18171817                  initform nil))
     1818        (setf specialp (if (or (memq var specials) (special-variable-p var)) t nil))
     1819        (push-variable var specialp i)
    18181820        (cond (initform
    18191821               (compile-form initform)
     
    18221824              (t
    18231825               (emit-push-nil)))
    1824         (cond ((special-variable-p var)
     1826        (cond (specialp
    18251827               (let ((g (declare-symbol var)))
    18261828                 (emit 'getstatic
Note: See TracChangeset for help on using the changeset viewer.