Changeset 8521


Ignore:
Timestamp:
02/10/05 12:53:22 (16 years ago)
Author:
piso
Message:

Work in progress (untested).

File:
1 edited

Legend:

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

    r8515 r8521  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.395 2005-02-10 01:43:09 piso Exp $
     4;;; $Id: jvm.lisp,v 1.396 2005-02-10 12:53:22 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    57315731              (sys:set-call-count compiled-definition (sys:call-count definition))
    57325732              (sys::%set-arglist compiled-definition (sys::arglist definition))
    5733               (if (macro-function name)
    5734                   (setf (fdefinition name) (sys::make-macro name compiled-definition))
    5735                   (setf (fdefinition name) compiled-definition)))
     5733              (let ((*warn-on-redefinition* nil))
     5734                (setf (fdefinition name)
     5735                      (if (macro-function name)
     5736                          (sys::make-macro name compiled-definition)
     5737                          compiled-definition))))
    57365738            (cond ((zerop (+ jvm::*errors* jvm::*warnings* jvm::*style-warnings*))
    57375739                   (setf warnings-p nil failure-p nil))
Note: See TracChangeset for help on using the changeset viewer.