From bdef9fb8e451360e8657ba0c873006c3e435601a Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Mon, 20 Mar 2006 09:05:20 +0000 Subject: [PATCH] Fixed typo. --- src/clos/standard.lsp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/clos/standard.lsp b/src/clos/standard.lsp index f32c0705c..1edc697a0 100644 --- a/src/clos/standard.lsp +++ b/src/clos/standard.lsp @@ -114,9 +114,9 @@ ;; arguments, but which has a value associated with :DEFAULT-INITARGS, ;; we compute the value and add it to the list of initargs. (dolist (scan (class-default-initargs class)) - (let ((initarg (first scan)) - (value (third scan)) - (supplied-value (si::search-keyword initargs initarg))) + (let* ((initarg (first scan)) + (value (third scan)) + (supplied-value (si::search-keyword initargs initarg))) (when (or (eq supplied-value '+initform-unsupplied+) (eq supplied-value 'si::failed)) (when (eq supplied-value '+initform-unsupplied+)