From 65fdaf41edaa12ef4e6fe454589c06b77dd33213 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Mon, 4 Feb 2008 23:32:27 +0100 Subject: Simplify CONSTRUCTOR-NAME-P. darcs-hash:5ddd574a447dc3a34f13e938df4f3b63b26d5be9 --- Lisp/method-invocation.lisp | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/Lisp/method-invocation.lisp b/Lisp/method-invocation.lisp index 9aae94d..b77765f 100644 --- a/Lisp/method-invocation.lisp +++ b/Lisp/method-invocation.lisp @@ -500,12 +500,9 @@ easier to use with __apply__. ;;; (@* "Helper functions") (defun constructor-name-p (method-name) (flet ((method-name-starts-with (prefix) - (and (>= (length method-name) (length prefix)) - (or (and (string= prefix - (subseq method-name 0 (length prefix))) - (or (= (length method-name) - (length prefix)) - (not (lower-case-p (char method-name (length prefix)))))))))) + (or (not (mismatch method-name prefix)) + (>= (mismatch method-name prefix) + (length prefix))))) (or (method-name-starts-with "alloc") (method-name-starts-with "new")))) -- cgit v1.2.3