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

Fixed typo.

Browse source
This commit is contained in:
jjgarcia 2006-03-20 09:05:20 +00:00
parent fe31238eba
commit bdef9fb8e4
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/clos/standard.lsp
View file

@ -114,9 +114,9 @@
;; arguments, but which has a value associated with :DEFAULT-INITARGS,
;; we compute the value and add it to the list of initargs.
(dolist (scan (class-default-initargs class))
(let ((initarg (first scan))
(value (third scan))
(supplied-value (si::search-keyword initargs initarg)))
(let* ((initarg (first scan))
(value (third scan))
(supplied-value (si::search-keyword initargs initarg)))
(when (or (eq supplied-value '+initform-unsupplied+)
(eq supplied-value 'si::failed))
(when (eq supplied-value '+initform-unsupplied+)