Changeset 5115


Ignore:
Timestamp:
12/13/03 01:49:57 (17 years ago)
Author:
piso
Message:

TOP-LEVEL-LOOP: use ~A instead of ~S when printing condition so *PRINT-ESCAPE* will be NIL.

File:
1 edited

Legend:

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

    r5051 r5115  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: top-level.lisp,v 1.17 2003-12-10 14:30:13 piso Exp $
     4;;; $Id: top-level.lisp,v 1.18 2003-12-13 01:49:57 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    256256          (repl)
    257257        #+j (stream-error (c) (return-from top-level-loop)) ; FIXME
    258         (error (c) (%format t "Error: ~S.~%" c) (break) (throw 'top-level-catcher nil))))))
     258        (error (c)
     259               (%format t "Error: ~A.~%" c)
     260               (break)
     261               (throw 'top-level-catcher nil))))))
Note: See TracChangeset for help on using the changeset viewer.