From 0e70c89451519fac2b32916b0a87849ee97738d8 Mon Sep 17 00:00:00 2001
From: Attila Lendvai <attila.lendvai@gmail.com>
Date: Thu, 27 Mar 2008 21:28:21 +0200
Subject: [PATCH] Added simple-reader-error

---
 conditions.lisp | 6 ++++++
 package.lisp    | 1 +
 2 files changed, 7 insertions(+)

diff --git a/conditions.lisp b/conditions.lisp
index b13dcac..536c002 100644
--- a/conditions.lisp
+++ b/conditions.lisp
@@ -12,6 +12,12 @@ a default value for required keyword arguments."
 (defun simple-style-warning (message &rest args)
   (warn 'simple-style-warning :format-control message :format-arguments args))
 
+(define-condition simple-reader-error (reader-error simple-error)
+  ())
+
+(defun simple-reader-error (message &rest args)
+  (warn 'simple-reader-error :format-control message :format-arguments args))
+
 (defmacro ignore-some-conditions ((&rest conditions) &body body)
   "Similar to CL:IGNORE-ERRORS but the (unevaluated) CONDITIONS
 list determines which specific conditions are to be ignored."
diff --git a/package.lisp b/package.lisp
index 7459d08..b5f2d7d 100644
--- a/package.lisp
+++ b/package.lisp
@@ -122,6 +122,7 @@
    #:required-argument
    #:ignore-some-conditions
    #:simple-style-warning
+   #:simple-reader-error
    #:unwind-protect-case
    ;; Features
    #:featurep
-- 
2.11.4.GIT