From a41e7cf8667de9ae078a8e318e8c5c045cdee87d Mon Sep 17 00:00:00 2001 From: Juho Snellman Date: Fri, 29 Dec 2006 01:01:51 +0000 Subject: [PATCH] 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). --- src/pcl/ctor.lisp | 1 + version.lisp-expr | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/src/pcl/ctor.lisp b/src/pcl/ctor.lisp index 743a69c80..712c0efc9 100644 --- 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 caceea444..372f49599 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".) -"1.0.1.4" +"1.0.1.5"