1.0.1.5:

        Suppress a bogus style-warning for MAKE-INSTANCE on a class with
        no slots and a non-standard metaclass. (Patch by Matthew Swank).

diff --git a/src/pcl/ctor.lisp b/src/pcl/ctor.lisp
index 743a69c..712c0ef 100644 (file)
--- a/src/pcl/ctor.lisp
+++ b/src/pcl/ctor.lisp
@@ -390,6 +390,7 @@
            .instance.)
         `(let* ((.instance. (,allocation-function ,wrapper))
                 (.slots. (,slots-fetcher .instance.)))
+           (declare (ignorable .slots.))
            ,body
            .instance.))))
 

diff --git a/version.lisp-expr b/version.lisp-expr
index caceea4..372f495 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".)
-"1.0.1.4"
+"1.0.1.5"