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

FIXNUMP is not imported in CLOS (S. Gromoff)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-10-30 21:41:13 +01:00
parent 3bfcc3e867
commit 12a1023e88
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/clos/standard.lsp
View file

@ -548,7 +548,7 @@ because it contains a reference to the undefined class~% ~A"
(table (slot-table class))
(slotd (gethash slot-name table))
(index (slot-definition-location slotd)))
(if (fixnump index)
(if (si::fixnump index)
(si:instance-set self (the fixnum index) value)
(rplaca (the cons index) value)))))))