Changeset 10052


Ignore:
Timestamp:
09/28/05 14:39:10 (16 years ago)
Author:
piso
Message:

TOP-LEVEL-LOOP: suppress startup message when SYS:*NOINFORM* is true.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/top-level.lisp

    r9856 r10052  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: top-level.lisp,v 1.49 2005-08-14 16:30:47 piso Exp $
     4;;; $Id: top-level.lisp,v 1.50 2005-09-28 14:39:10 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    392392  (loop
    393393    (let* ((form (funcall *repl-read-form-fun* in out))
    394            (results (multiple-value-list (sys::interactive-eval form)))
     394           (results (multiple-value-list (sys:interactive-eval form)))
    395395           (*print-length* 10))
    396396      (dolist (result results)
     
    400400(defun top-level-loop ()
    401401  (fresh-line)
    402   (%format t "Type ~AHELP for a list of available commands.~%" *command-char*)
     402  (unless sys:*noinform*
     403    (%format t "Type ~AHELP for a list of available commands.~%" *command-char*))
    403404  (loop
    404405    (setf *inspected-object* nil
Note: See TracChangeset for help on using the changeset viewer.