mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 05:12:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

Syntax errors in lambda list are intercepted and resignaled as compiler errors (cmplam.lsp)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-06-25 23:03:01 +02:00
parent 53d79a8636
commit 609ba59ffe
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/cmp/cmplam.lsp
View file

@ -143,6 +143,10 @@ The function thus belongs to the type of functions that ecl_make_cfun accepts."
(new-defun fun (fun-no-entry fun))))
fun)
(defun cmp-process-lambda-list (list)
(handler-case (si::process-lambda-list list 'function)
(error (c) (cmperr "Illegal lambda list ~S" list))))
(defun c1lambda-expr (lambda-expr
&optional (block-name nil)
&aux doc body ss is ts
@ -164,7 +168,7 @@ The function thus belongs to the type of functions that ecl_make_cfun accepts."
(multiple-value-bind (requireds optionals rest key-flag keywords
allow-other-keys aux-vars)
(si::process-lambda-list (car lambda-expr) 'function)
(cmp-process-lambda-list (car lambda-expr))
(do ((specs (setq requireds (cdr requireds)) (cdr specs)))
((endp specs))
@ -521,7 +525,7 @@ The function thus belongs to the type of functions that ecl_make_cfun accepts."
let-vars extra-stmts all-keys)
(multiple-value-bind (requireds optionals rest key-flag keywords
allow-other-keys aux-vars)
(si::process-lambda-list (car lambda-form) 'function)
(cmp-process-lambda-list (car lambda-form))
(when apply-p
(setf apply-list (first (last arguments))
apply-var (gensym)