Ignore:
Timestamp:
12/19/03 02:16:52 (18 years ago)
Author:
piso
Message:

PRINT-RESTART

File:
1 edited

Legend:

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

    r5186 r5187  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: restart.lisp,v 1.12 2003-12-19 01:36:31 piso Exp $
     4;;; $Id: restart.lisp,v 1.13 2003-12-19 02:16:52 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    8282           (format stream "~S" restart)))))
    8383     stream))
     84
     85(defun print-restart (restart stream)
     86  (if *print-escape*
     87      (print-unreadable-object (restart stream :type t :identity t)
     88                               (prin1 (restart-name restart) stream))
     89      (restart-report restart stream)))
    8490
    8591(defun find-restart (name &optional condition)
Note: See TracChangeset for help on using the changeset viewer.