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

Parsing of &optional arguments in DEFMACRO led to erroneous C code.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-12-17 20:30:38 +01:00
parent e786001fd9
commit 3b45bc6ecf
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/lsp/defmacro.lsp
View file

@ -111,12 +111,13 @@
(init (second opts))
(sv (third opts)))
(setq opts (cdddr opts))
(let ((pointer-value `(if ,pointer ,unsafe-car ,init)))
(cond (sv
(dm-v x pointer-value)
(dm-v sv `(prog1 (not (null ,pointer)) ,unsafe-pop)))
(t
(dm-v x `(prog1 ,pointer-value ,unsafe-pop)))))))
(cond (sv
(dm-v x `(if ,pointer ,unsafe-car ,init))
(dm-v sv `(and ,pointer (progn ,unsafe-pop t))))
(t
(dm-v x `(if ,pointer
(prog1 ,unsafe-car ,unsafe-pop)
,init))))))
(when rest
(dm-v rest pointer)
(setq no-check t))