Changeset 4432


Ignore:
Timestamp:
10/17/03 15:02:12 (18 years ago)
Author:
piso
Message:

INVOKE-DEBUGGER: call CLEAR-INPUT before entering debug loop.

File:
1 edited

Legend:

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

    r4190 r4432  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: debug.lisp,v 1.5 2003-10-04 10:53:35 piso Exp $
     4;;; $Id: debug.lisp,v 1.6 2003-10-17 15:02:12 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3636      (funcall hook-function condition hook-function)))
    3737  (catch 'tpl::continue-catcher
     38    (clear-input)
    3839    (debug-loop)))
    3940
Note: See TracChangeset for help on using the changeset viewer.