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

In std-class-sealed-accessor, fixed typo in declaration (J. James).

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-01-24 22:21:03 +01:00
parent 412bfc1f4f
commit daf5ecc82c
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

@ -598,7 +598,7 @@ because it contains a reference to the undefined class~% ~A"
(defun std-class-sealed-accessors (index)
(declare (si::c-local)
(fixnum slot-index))
(fixnum index))
(values #'(lambda (self)
(declare (optimize (safety 1) (speed 3) (debug 0))
(standard-object self))