Changeset 4202

Timestamp:

10/05/03 17:57:24 (19 years ago)

Author:

piso

Message:

Work in progress.

File:

• trunk/j/src/org/armedbear/lisp/top-level.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/top-level.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: top-level.lisp,v 1.5 2003-10-05 15:09:25 piso Exp $
+;;; $Id: top-level.lisp,v 1.6 2003-10-05 17:57:24 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -244 +244 @@
       (handler-case
           (repl)
-        (stream-error (c) (return-from top-level-loop))
+        #+j (stream-error (c) (return-from top-level-loop)) ; FIXME
         (error (c) (format t "Error: ~S.~%" c) (break) (throw 'top-level-catcher nil))))))