Simplify
Sat Aug 19 17:30:28 PDT 2006 Hoan Ton-That <hoan@ton-that.org>
* Simplify
diff -rN -u old-public_html/src/walker.lisp new-public_html-1/src/walker.lisp
--- old-public_html/src/walker.lisp 2014-07-31 10:36:11.000000000 -0700
+++ new-public_html-1/src/walker.lisp 2014-07-31 10:36:11.000000000 -0700
@@ -235,13 +235,7 @@
(unstms (stms body))))))
(defstm-walker labels-form (binds body declares)
- (with-trans-funs (mapcar (lambda (bind func)
- (cons bind
- (make-list (count-if [typep _ 'required-function-argument-form]
- (arguments func))
- :initial-element nil)))
- (mapcar #'car binds)
- (mapcar #'cdr binds))
+ (with-trans-funs (mapcar (compose #'list #'car) binds)
(trans-form
(new 'labels-form
:binds (unstmb (stmb binds))
@@ -257,13 +251,7 @@
:declares declares
:body
(with-declarations declares
- (with-trans-funs (mapcar (lambda (bind func)
- (cons bind
- (make-list (count-if [typep _ 'required-function-argument-form]
- (arguments func))
- :initial-element nil)))
- (mapcar #'car binds)
- (mapcar #'cdr binds))
+ (with-trans-funs (mapcar (compose #'list #'car) binds)
(unstms (stms body)))))))
(defstm-walker lambda-function-form (arguments body declares)