Changeset 8790


Ignore:
Timestamp:
03/19/05 00:47:18 (16 years ago)
Author:
piso
Message:

PROCESS-OPTIMIZATION-DECLARATIONS

File:
1 edited

Legend:

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

    r8660 r8790  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.404 2005-02-28 02:50:05 piso Exp $
     4;;; $Id: jvm.lisp,v 1.405 2005-03-19 00:47:18 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    59575957      (unless (and (consp form) (eq (car form) 'declare))
    59585958        (return))
    5959       (let ((decl (cadr form)))
     5959      (dolist (decl (cdr form))
    59605960        (when (eq (car decl) 'OPTIMIZE)
    59615961          (dolist (spec (cdr decl))
Note: See TracChangeset for help on using the changeset viewer.