diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-04 23:34:26 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-04 23:34:26 +0100 |
| commit | 8db7975b6882a34ba2ac67c8cc2d6765f8cac8e7 (patch) | |
| tree | abfc898defdd51b703a3cbdc9e1addae41575bd4 | |
| parent | 65fdaf41edaa12ef4e6fe454589c06b77dd33213 (diff) | |
Minor cleanups.
darcs-hash:e60bcfe2fc8562b5b1c7c9e086335a6985e9a6cb
| -rw-r--r-- | Lisp/method-invocation.lisp | 6 |
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")))) |