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

The code in cmplam.lsp still used si:failed instead of the symbol si:missing-keyword to determine whether a keyword is missing.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-11-20 00:48:29 +01:00
parent 40704355d4
commit e95fa190cc
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmplam.lsp
View file

@ -600,11 +600,11 @@ The function thus belongs to the type of functions that ecl_make_cfun accepts."
(push keyword all-keys)
(setf let-vars
(list*
`(,key-var (if (eq ,key-flag 'si::failed) ,key-value ,key-flag))
`(,key-var (if (eq ,key-flag 'si::missing-keyword) ,key-value ,key-flag))
`(,key-flag (si::search-keyword ,rest ,keyword))
let-vars))
(when (fourth scan)
(push `(setf ,key-flag (not (eq ,key-flag 'si::failed)))
(push `(setf ,key-flag (not (eq ,key-flag 'si::missing-keyword)))
extra-stmts))))
(when (and key-flag (not allow-other-keys))
(push `(si::check-keyword ,rest ',all-keys) extra-stmts))