From 05b900143b52fa4454f868da90fec48681da1812 Mon Sep 17 00:00:00 2001 From: William Harold Newman Date: Wed, 30 Jun 2004 23:08:32 +0000 Subject: [PATCH] 0.8.12.14: bugfix: missing level of LISTness in :REFERENCES in FIND-METHOD-LENGTH-MISMATCH tidying: added contrib/sb-sprof/.cvsignore --- contrib/sb-sprof/.cvsignore | 1 + src/pcl/methods.lisp | 8 +++++--- version.lisp-expr | 2 +- 3 files changed, 7 insertions(+), 4 deletions(-) create mode 100644 contrib/sb-sprof/.cvsignore diff --git a/contrib/sb-sprof/.cvsignore b/contrib/sb-sprof/.cvsignore new file mode 100644 index 0000000..b183144 --- /dev/null +++ b/contrib/sb-sprof/.cvsignore @@ -0,0 +1 @@ +test-passed \ No newline at end of file diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp index 20158c0..4b68b67 100644 --- a/src/pcl/methods.lisp +++ b/src/pcl/methods.lisp @@ -291,7 +291,7 @@ (define-condition find-method-length-mismatch (reference-condition simple-error) () - (:default-initargs :references '(:ansi-cl :function find-method))) + (:default-initargs :references (list '(:ansi-cl :function find-method)))) (defun real-get-method (generic-function qualifiers specializers &optional (errorp t) @@ -299,7 +299,8 @@ (let ((lspec (length specializers)) (methods (generic-function-methods generic-function))) (when (or methods always-check-specializers) - (let ((nreq (length (arg-info-metatypes (gf-arg-info generic-function))))) + (let ((nreq (length (arg-info-metatypes (gf-arg-info + generic-function))))) ;; Since we internally bypass FIND-METHOD by using GET-METHOD ;; instead we need to to this here or users may get hit by a ;; failed AVER instead of a sensible error message. @@ -712,7 +713,8 @@ (loop (when (atom x) (return (eq x y))) (when (atom y) (return nil)) (unless (eq (car x) (car y)) (return nil)) - (setq x (cdr x) y (cdr y)))) + (setq x (cdr x) + y (cdr y)))) (defvar *std-cam-methods* nil) diff --git a/version.lisp-expr b/version.lisp-expr index 6993d25..6eec739 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.8.12.13" +"0.8.12.14" -- 1.7.10.4