diff options
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)) |