From e90b2f12122a4a972c5d529af8b2ff993ea5cc9b Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 7 Oct 2012 21:55:22 +0200 Subject: [PATCH] SLOT-BOUNDP returned extra values in error conditions --- src/clos/std-slot-value.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/clos/std-slot-value.lsp b/src/clos/std-slot-value.lsp index 69e6e14e8..294b35f14 100644 --- a/src/clos/std-slot-value.lsp +++ b/src/clos/std-slot-value.lsp @@ -221,7 +221,7 @@ (let ((location (gethash slot-name location-table nil))) (if location (si:sl-boundp (standard-instance-get self location)) - (slot-missing class self slot-name 'SLOT-VALUE))) + (values (slot-missing class self slot-name 'SLOT-BOUNDP)))) (let ((slotd (find slot-name (class-slots class) :key #'slot-definition-name))) (if slotd (slot-boundp-using-class class self slotd)