From 9de2628a475847fb77d6a018e84e50ce4b25edb1 Mon Sep 17 00:00:00 2001 From: Adlai Chandrasekhar Date: Wed, 17 Feb 2010 04:05:34 +0200 Subject: [PATCH] Fixing a bogus warning in DEFSTRUCT --- src/code/defstruct.lisp | 10 +++++----- 1 files changed, 5 insertions(+), 5 deletions(-) diff --git a/src/code/defstruct.lisp b/src/code/defstruct.lisp index a7dfff4..76f3c83 100644 --- a/src/code/defstruct.lisp +++ b/src/code/defstruct.lisp @@ -1535,12 +1535,12 @@ (when auxp (arglist '&aux) (dolist (arg aux) - (arglist arg) (if (proper-list-of-length-p arg 2) - (let ((var (first arg))) - (vars var) - (types (get-slot var))) - (skipped-vars (if (consp arg) (first arg) arg)))))) + (let ((var (first arg))) + (arglist arg) + (vars var) + (types (get-slot var))) + (skipped-vars (if (consp arg) (first arg) arg)))))) (funcall creator defstruct (first boa) (arglist) (vars) (types) -- 1.7.0