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

Small typo.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-02-15 18:58:23 +01:00
parent 8697d90d4b
commit afdd5b9831
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpcall.lsp
View file

@ -53,7 +53,7 @@
;; (FUNCALL macro-expression ...)
((let ((name (first fun)))
(setq fd (and (symbolp name)
;; We do not want to macroexpad 'THE
;; We do not want to macroexpand 'THE
(not (eq name 'THE))
(cmp-macro-function name))))
(c1funcall (list* (cmp-expand-macro fd fun) arguments)))