From e95fa190ccab10a5dcca791658d7d3ff24a77240 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Tue, 20 Nov 2012 00:48:29 +0100 Subject: [PATCH] The code in cmplam.lsp still used si:failed instead of the symbol si:missing-keyword to determine whether a keyword is missing. --- src/cmp/cmplam.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/cmp/cmplam.lsp b/src/cmp/cmplam.lsp index 2d80161ae..fff1f02f0 100644 --- a/src/cmp/cmplam.lsp +++ b/src/cmp/cmplam.lsp @@ -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))