diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-21 16:17:40 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-21 16:17:40 +0200 |
| commit | 17ee7b8790aff3efe19551796efec889e9d0b51d (patch) | |
| tree | 088e7201ad2c1cbda86c8cfd2ff34f25c9b9a283 /Lisp/libobjcl.lisp | |
| parent | 4167e6b9ec7c144bf259a820d7c958ecf7632c3f (diff) | |
Add condition classes NO-SUCH-SELECTOR and MESSAGE-NOT-UNDERSTOOD.
darcs-hash:e86722d8de9c97edf6ee9665423d57b0239fe910
Diffstat (limited to 'Lisp/libobjcl.lisp')
| -rw-r--r-- | Lisp/libobjcl.lisp | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp index aa9c436..1d14e8b 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -370,8 +370,7 @@ If *selector-designator* is a __selector__, it is simply returned. (symbol (selector (list designator))) ((or string list) (or (find-selector designator) - (error "Could not find the selector designated by ~S." - designator))))) + (error (make-condition 'no-such-selector :designator designator)))))) (defun parse-typespec (typestring &optional (start 0)) |