mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-09 06:30:32 -07:00
Code Issues Projects Releases Packages Wiki Activity

Fixed typo in ALLOCATE-INSTANCE (for structure-class)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2013-05-23 12:33:58 +02:00
parent 92054ae38c
commit 6f7c8baeb3
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/clos/builtin.lsp
View file

@ -76,7 +76,7 @@
(defmethod allocate-instance ((class structure-class) &rest initargs)
(declare (ignore initargs))
(apply #'si::make-structure class
(make-list (class-size class)) :initial-element (si::unbound)))
(make-list (class-size class) :initial-element (si::unbound))))
(defmethod finalize-inheritance ((class structure-class))
(call-next-method)