Changeset 8431

Timestamp:

01/31/05 17:28:17 (17 years ago)

Author:

piso

Message:

COMPILE-SYSTEM: bind *WARN-ON-REDEFINITION* to NIL.

File:

• trunk/j/src/org/armedbear/lisp/compile-system.lisp (modified) (3 diffs)

trunk/j/src/org/armedbear/lisp/compile-system.lisp

@@ -1 +1 @@
 ;;; compile-system.lisp
 ;;;
-;;; Copyright (C) 2004 Peter Graves
-;;; $Id: compile-system.lisp,v 1.37 2004-11-21 18:18:18 piso Exp $
+;;; Copyright (C) 2004-2005 Peter Graves
+;;; $Id: compile-system.lisp,v 1.38 2005-01-31 17:28:17 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -78 +78 @@
   (check-lisp-home)
   (time
-   (let ((*default-pathname-defaults* (pathname *lisp-home*)))
+   (let ((*default-pathname-defaults* (pathname *lisp-home*))
+         (*warn-on-redefinition* nil))
      (load (maybe-compile-file "precompiler.lisp"))
      (load (maybe-compile-file "source-transform.lisp"))
@@ -90 +91 @@
                                   "macros.lisp"
                                   "loop.lisp"))
-;;      (mapc #'maybe-compile-file '("pprint.lisp"
-;;                                   "format.lisp"))
      (load (maybe-compile-file "backquote.lisp"))
      (load (maybe-compile-file "early-defuns.lisp"))