diff options
Diffstat (limited to 'src/util.lisp')
| -rw-r--r-- | src/util.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/util.lisp b/src/util.lisp index f23cfb0..487fcd4 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -149,9 +149,9 @@ supported." (nreversef ,argsym) ,@forms))))) -(defmacro define-simple-error (name &optional docstring) +(defmacro define-simple-error (name &optional parent-types docstring) `(progn - (define-condition ,name (simple-error) () + (define-condition ,name (,@parent-types simple-error) () ,@(and docstring `((:documentation ,docstring)))) (defun ,name (message &rest args) ,@(and docstring `(,docstring)) |