Changeset 8560


Ignore:
Timestamp:
02/13/05 04:17:42 (16 years ago)
Author:
piso
Message:

CHECK-REDEFINITION: no warning if the name being redefined is an autoload.

File:
1 edited

Legend:

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

    r8548 r8560  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: fdefinition.lisp,v 1.2 2005-02-12 03:29:33 piso Exp $
     4;;; $Id: fdefinition.lisp,v 1.3 2005-02-13 04:17:42 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2121
    2222(defun check-redefinition (name)
    23   (when (and *warn-on-redefinition* (fboundp name))
     23  (when (and *warn-on-redefinition* (fboundp name) (not (autoloadp name)))
    2424    (cond ((symbolp name)
    2525           (let ((old-definition (symbol-function name))
Note: See TracChangeset for help on using the changeset viewer.