From 8db7975b6882a34ba2ac67c8cc2d6765f8cac8e7 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Mon, 4 Feb 2008 23:34:26 +0100 Subject: Minor cleanups. darcs-hash:e60bcfe2fc8562b5b1c7c9e086335a6985e9a6cb --- Lisp/method-invocation.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Lisp/method-invocation.lisp b/Lisp/method-invocation.lisp index b77765f..a0a426b 100644 --- a/Lisp/method-invocation.lisp +++ b/Lisp/method-invocation.lisp @@ -500,9 +500,9 @@ easier to use with __apply__. ;;; (@* "Helper functions") (defun constructor-name-p (method-name) (flet ((method-name-starts-with (prefix) - (or (not (mismatch method-name prefix)) - (>= (mismatch method-name prefix) - (length prefix))))) + (let ((mismatch (mismatch method-name prefix))) + (or (not mismatch) + (>= mismatch (length prefix)))))) (or (method-name-starts-with "alloc") (method-name-starts-with "new")))) -- cgit v1.2.3