0.8.0.78.vector-nil-string.6:

[sbcl.git] / src / code / target-error.lisp

diff --git a/src/code/target-error.lisp b/src/code/target-error.lisp
index f4093cc..fc61108 100644 (file)
--- a/src/code/target-error.lisp
+++ b/src/code/target-error.lisp
@@ -114,13 +114,6 @@
         (args (interactive-restart-arguments real-restart)))
     (apply (restart-function real-restart) args)))
 \f
-\f
-
-
-
-;;;; helper functions for restartable error handling which couldn't be
-;;;; defined 'til now 'cause they use the RESTART-CASE macro
-
 (defun assert-error (assertion places datum &rest arguments)
   (let ((cond (if datum
                (coerce-to-condition datum