Changeset 5012


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

Use SYS::%FORMAT instead of FORMAT.

File:
1 edited

Legend:

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

    r4771 r5012  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: debug.lisp,v 1.9 2003-11-15 19:09:39 piso Exp $
     4;;; $Id: debug.lisp,v 1.10 2003-12-08 02:52:29 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2323  (let ((tpl::*break-level* (1+ tpl::*break-level*)))
    2424  (fresh-line *debug-io*)
    25   (format *debug-io* "Type :CONTINUE to return from break or :RESET to return to top level.~%")
     25  (%format *debug-io* "Type :CONTINUE to return from break or :RESET to return to top level.~%")
    2626    (loop
    2727      (catch 'debug-loop-catcher
    2828        (handler-case
    2929            (tpl::repl)
    30           (error (c) (format t "Error: ~S.~%" c) (break) (throw 'debug-loop-catcher nil)))))))
     30          (error (c) (%format t "Error: ~S.~%" c) (break) (throw 'debug-loop-catcher nil)))))))
    3131
    3232(defun invoke-debugger (condition)
     
    4141(defun break (&optional format-control &rest format-arguments)
    4242  (fresh-line *debug-io*)
    43   (format *debug-io* "BREAK called.~%")
     43  (%format *debug-io* "BREAK called.~%")
    4444  (if format-control
    45       (apply #'format *debug-io* format-control format-arguments))
     45      (apply #'%format *debug-io* format-control format-arguments))
    4646  (invoke-debugger nil))
Note: See TracChangeset for help on using the changeset viewer.