summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-04 23:34:26 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-04 23:34:26 +0100
commit8db7975b6882a34ba2ac67c8cc2d6765f8cac8e7 (patch)
treeabfc898defdd51b703a3cbdc9e1addae41575bd4
parent65fdaf41edaa12ef4e6fe454589c06b77dd33213 (diff)
Minor cleanups.
darcs-hash:e60bcfe2fc8562b5b1c7c9e086335a6985e9a6cb
-rw-r--r--Lisp/method-invocation.lisp6
1 files 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"))))