mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-06 02:40:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

mapcar-expand: fix-typo

Browse source
This commit is contained in:
Daniel Kochmanski 2017-08-10 20:32:02 +02:00
parent c2af9fe775
commit 7320c9049c
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpmap.lsp
View file

@ -21,7 +21,7 @@
(cmpwarn "Too few arguments to function ~A in form: ~A" (first whole) whole)
(return-from expand-mapcar
`(si:simple-program-error
"Too few arguments to function ~A in form: ~A" ',(first whole) ,whole)))
"Too few arguments to function ~A in form: ~A" ',(first whole) ',whole)))
(let ((which (first whole)))
(when (eq which 'FUNCALL)
(setf whole (rest whole)