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

In do-setf-structure-method, the closures did not check their arguments.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2013-01-14 21:35:37 +01:00
parent 5e177e07de
commit bc13fb41d1
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/lsp/defstruct.lsp
View file

@ -56,8 +56,7 @@
(defun do-setf-structure-method (access-function type index)
(declare (si::c-local)
(optimize (speed 3) (safety 0)))
(declare (si::c-local))
(put-sysprop access-function 'STRUCTURE-ACCESS (cons type index))
(do-defsetf access-function
(cond ((or (eq type 'list) (eq type 'vector))