0.8.12.14:

	bugfix: missing level of LISTness in :REFERENCES in
		FIND-METHOD-LENGTH-MISMATCH
	tidying: added contrib/sb-sprof/.cvsignore

diff --git a/contrib/sb-sprof/.cvsignore b/contrib/sb-sprof/.cvsignore
new file mode 100644 (file)
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 (file)
--- 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 (file)
--- 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"