Changeset 5014


Ignore:
Timestamp:
12/08/03 02:59:08 (17 years ago)
Author:
piso
Message:

Use SYS::%FORMAT instead of FORMAT where appropriate.

File:
1 edited

Legend:

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

    r4732 r5014  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: top-level.lisp,v 1.15 2003-11-14 01:41:54 piso Exp $
     4;;; $Id: top-level.lisp,v 1.16 2003-12-08 02:59:08 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2121
    2222(in-package "TOP-LEVEL")
     23
     24(import 'sys::%format)
    2325
    2426(defvar *break-level* 0)
     
    3941  (fresh-line stream)
    4042  (when (> *break-level* 0)
    41     (format stream "[~D] " *break-level*))
    42   (format stream "~A(~D): " (prompt-package-name) *cmd-number*))
     43    (%format stream "[~D] " *break-level*))
     44  (%format stream "~A(~D): " (prompt-package-name) *cmd-number*))
    4345
    4446(defparameter *repl-prompt-fun* #'repl-prompt-fun)
     
    6567        (n 0))
    6668    (dolist (frame *saved-backtrace*)
    67       (format t "  ~D: ~S~%" n frame)
     69      (%format t "  ~D: ~S~%" n frame)
    6870      (incf n)
    6971      (when (>= n count)
     
    212214        (if fun
    213215            (funcall fun args)
    214             (format t "Unknown top-level command ~S.~%" cmd)))
     216            (%format t "Unknown top-level command ~S.~%" cmd)))
    215217      (return-from process-cmd t)))
    216218  nil)
     
    243245(defun top-level-loop ()
    244246  (fresh-line)
    245   (format t "Type :HELP for a list of top-level commands.~%")
     247  (%format t "Type :HELP for a list of top-level commands.~%")
    246248  (loop
    247249    (catch 'top-level-catcher
     
    249251          (repl)
    250252        #+j (stream-error (c) (return-from top-level-loop)) ; FIXME
    251         (error (c) (format t "Error: ~S.~%" c) (break) (throw 'top-level-catcher nil))))))
     253        (error (c) (%format t "Error: ~S.~%" c) (break) (throw 'top-level-catcher nil))))))
Note: See TracChangeset for help on using the changeset viewer.