From 17ee7b8790aff3efe19551796efec889e9d0b51d Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 21 Sep 2007 16:17:40 +0200
Subject: Add condition classes NO-SUCH-SELECTOR and MESSAGE-NOT-UNDERSTOOD.

darcs-hash:e86722d8de9c97edf6ee9665423d57b0239fe910
---
 Lisp/libobjcl.lisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'Lisp/libobjcl.lisp')

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))
-- 
cgit v1.2.3