From 6f7c8baeb375b772905f9812e0f1c03a0101dd91 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Thu, 23 May 2013 12:33:58 +0200 Subject: [PATCH] Fixed typo in ALLOCATE-INSTANCE (for structure-class) --- src/clos/builtin.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/clos/builtin.lsp b/src/clos/builtin.lsp index 6c3c2c132..0effca669 100644 --- a/src/clos/builtin.lsp +++ b/src/clos/builtin.lsp @@ -76,7 +76,7 @@ (defmethod allocate-instance ((class structure-class) &rest initargs) (declare (ignore initargs)) (apply #'si::make-structure class - (make-list (class-size class)) :initial-element (si::unbound))) + (make-list (class-size class) :initial-element (si::unbound)))) (defmethod finalize-inheritance ((class structure-class)) (call-next-method)