mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-24 21:41:29 -08:00
Code Issues Projects Releases Packages Wiki Activity

cosmetic: indentation fixes and some comments

Browse source
This commit is contained in:
Marius Gerbershagen 2018-06-13 20:54:26 +02:00
parent d27f1494e1
commit 25a72ff80a
7 changed files with 36 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmpflet.lsp
View file

@ -45,8 +45,8 @@
(cmp-env-register-function fun new-env)
(push (cons fun (cdr def)) defs)))
;; Now we compile the functions, either in an empty environment
;; in which there are no new functions
;; Now we compile the functions, either in the current environment
;; or in an empty environment in which there are no new functions
(let ((*cmp-env* (cmp-env-copy (if (eq origin 'FLET) *cmp-env* new-env))))
(dolist (def (nreverse defs))
(let ((fun (first def)))