mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 06:12:25 -08:00
Code Issues Projects Releases Packages Wiki Activity

SLOT-BOUNDP returned extra values in error conditions

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-10-07 21:55:22 +02:00
parent 1306759d45
commit e90b2f1212
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/clos/std-slot-value.lsp
View file

@ -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)