Changeset 4450 for trunk/j/src/org/armedbear/lisp/boot.lisp

Timestamp:

10/18/03 22:34:09 (19 years ago)

Author:

piso

Message:

(setq *load-verbose* t) when done.

File:

• trunk/j/src/org/armedbear/lisp/boot.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/boot.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: boot.lisp,v 1.117 2003-10-14 16:04:55 piso Exp $
+;;; $Id: boot.lisp,v 1.118 2003-10-18 22:34:09 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -417 +417 @@
     `(let* ((,g (multiple-value-list ,form)) ,@(nreverse poplist))
            ,@body)))
+
+(setq *load-verbose* t)