diff --git a/lambda/src/main/java/io/github/jmurmel/LambdaJ.java b/lambda/src/main/java/io/github/jmurmel/LambdaJ.java index 06679750..43d03f8d 100644 --- a/lambda/src/main/java/io/github/jmurmel/LambdaJ.java +++ b/lambda/src/main/java/io/github/jmurmel/LambdaJ.java @@ -11470,7 +11470,7 @@ private void emitLabels(WrappingWriter sb, final ConsCell args, ConsCell env, Co final Object localFuncs = car(args); if (localFuncs == null || cddr(args) == null && atom(cadr(args))) { - // no local functions or body is one single atom (the latter can't use the functions so skip them + // no local functions or body is one single atom (the latter can't use the functions so skip them) emitProgn(sb, cdr(args), env, topEnv, rsfx, isLast); return; } diff --git a/samples.murmel-mlib/mlib.lisp b/samples.murmel-mlib/mlib.lisp index d9c55528..f488782a 100644 --- a/samples.murmel-mlib/mlib.lisp +++ b/samples.murmel-mlib/mlib.lisp @@ -3492,6 +3492,8 @@ arg (jerror "format - not a character: '%s'" arg))) + + (labels ((append-reversed-num (rev arg base) (let loop ((n (if (> arg 0) (- arg) arg))) ; normalize integers to negative numbers because e.g. (abs most-negative-fixnum) would not fit in a fixnum (when (< n 0) @@ -3561,6 +3563,8 @@ (write (car arguments) nil output-stream)) (cdr arguments)) +) ; labels + ;; semi-private: used by the function generated by 'format-function' and the expansion of 'formatter' (defun m%print-roman (arguments output-stream colonp) @@ -3621,8 +3625,6 @@ (write str nil output-stream))) (cdr arguments)) -) ; labels - (labels ((parse-control-string (control-string) ;; used by the macro 'formatter' and by the function 'm%format-function'