Changeset 8428


Ignore:
Timestamp:
01/31/05 17:24:28 (17 years ago)
Author:
piso
Message:

(setf *warn-on-redefinition* t) at end of file.

File:
1 edited

Legend:

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

    r8184 r8428  
    11;;; boot.lisp
    22;;;
    3 ;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: boot.lisp,v 1.200 2004-11-21 16:03:49 piso Exp $
     3;;; Copyright (C) 2003-2005 Peter Graves
     4;;; $Id: boot.lisp,v 1.201 2005-01-31 17:24:28 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    296296            (t
    297297             (let ((*readtable* (copy-readtable nil)))
    298                (sys::load-system-file (string-downcase (string module-name))))))
     298               (load-system-file (string-downcase (string module-name))))))
    299299      (set-difference *modules* saved-modules))))
    300300
     
    322322
    323323(unless (sys::featurep :j)
    324   (sys::load-system-file "top-level")
    325   (sys::%format t "Startup completed in ~A seconds.~%" (float (/ (ext:uptime) 1000))))
     324  (load-system-file "top-level")
     325  (setf *warn-on-redefinition* t)
     326  (%format t "Startup completed in ~A seconds.~%" (float (/ (ext:uptime) 1000))))
     327
Note: See TracChangeset for help on using the changeset viewer.