Changeset 8429


Ignore:
Timestamp:
01/31/05 17:25:39 (16 years ago)
Author:
piso
Message:

PRECOMPILE: bind *WARN-ON-REDEFINITION* to NIL.

File:
1 edited

Legend:

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

    r8314 r8429  
    11;;; precompiler.lisp
    22;;;
    3 ;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: precompiler.lisp,v 1.86 2004-12-30 18:29:23 piso Exp $
     3;;; Copyright (C) 2003-2005 Peter Graves
     4;;; $Id: precompiler.lisp,v 1.87 2005-01-31 17:25:39 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    813813      (%set-lambda-name result name)
    814814      (set-call-count result (call-count definition))
    815       (if (and (symbolp name) (macro-function name))
    816           (let ((mac (make-macro name result)))
    817             (%set-arglist mac (arglist (symbol-function name)))
    818             (setf (fdefinition name) mac))
    819           (progn
    820             (setf (fdefinition name) result)
    821             (%set-arglist result (arglist definition)))))
     815      (let ((*warn-on-redefinition* nil))
     816        (if (and (symbolp name) (macro-function name))
     817            (let ((mac (make-macro name result)))
     818              (%set-arglist mac (arglist (symbol-function name)))
     819              (setf (fdefinition name) mac))
     820            (progn
     821              (setf (fdefinition name) result)
     822              (%set-arglist result (arglist definition))))))
    822823    (values (or name result) nil nil)))
    823824
Note: See TracChangeset for help on using the changeset viewer.