Changeset 5154


Ignore:
Timestamp:
12/15/03 17:43:31 (17 years ago)
Author:
piso
Message:

CERROR

Location:
trunk/j/src/org/armedbear/lisp
Files:
2 edited

Legend:

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

    r5150 r5154  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: autoloads.lisp,v 1.75 2003-12-15 17:12:44 piso Exp $
     4;;; $Id: autoloads.lisp,v 1.76 2003-12-15 17:43:31 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    114114
    115115(autoload '(find-restart invoke-restart restart-name compute-restarts
    116             abort continue muffle-warning store-value use-value warn)
     116            abort continue muffle-warning store-value use-value warn cerror)
    117117          "restart.lisp")
    118118(autoload-macro '(with-simple-restart restart-bind restart-case
  • trunk/j/src/org/armedbear/lisp/restart.lisp

    r5141 r5154  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: restart.lisp,v 1.3 2003-12-15 14:07:22 piso Exp $
     4;;; $Id: restart.lisp,v 1.4 2003-12-15 17:43:05 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    208208      (format *error-output* "~S: ~A~%" badness condition)))
    209209  nil)
     210
     211(defun cerror (continue-string datum &rest arguments)
     212  (with-simple-restart (continue "~A" (apply #'format nil continue-string arguments))
     213    (let ((condition (coerce-to-condition datum arguments 'simple-error 'error)))
     214      (with-condition-restarts condition (list (find-restart 'continue))
     215        (signal condition)
     216        (invoke-debugger condition))))
     217  nil)
Note: See TracChangeset for help on using the changeset viewer.