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

All accessors are now generic functions, including slot definition's ones

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-10-12 12:14:27 +02:00
parent 82bac13d72
commit bca1f4053a
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/clos/std-accessors.lsp
View file

@ -197,6 +197,7 @@
(labels ((generate-accessors (class)
(declare (optimize speed (safety 0)))
(if (and (typep class 'std-class)
#+(or)
(not (member (slot-value class 'name)
'(slot-definition
direct-slot-definition