Changeset 12505
- Timestamp:
- 02/23/10 23:35:17 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp
r12428 r12505 204 204 temp-bindings rest-binding) 205 205 (setf bindings (append bindings rest-binding))))) 206 207 206 ;;Aux parameters. 208 207 (when aux … … 212 211 :for var-info :in aux 213 212 :collect `(,(var var-info) ,(initform var-info)))))) 214 215 213 (values (append req-bindings temp-bindings bindings) 216 214 ignorables))))) … … 319 317 args) 320 318 `(let* ,bindings 321 (declare (ignorable ,@ignorables)) 319 ,@(when ignorables 320 `((declare (ignorable ,@ignorables)))) 322 321 ,@body)) 323 322 (lambda-list-mismatch (x) … … 1249 1248 (if (and (listp op) 1250 1249 (eq (car op) 'lambda)) 1251 (expand-function-call-inline form (cadr op) (c ddr op) args)1250 (expand-function-call-inline form (cadr op) (copy-tree (cddr op)) args) 1252 1251 (if (unsafe-p args) 1253 1252 (let ((arg1 (car args))) … … 1276 1275 (let ((new-form (rewrite-function-call form))) 1277 1276 (when (neq new-form form) 1278 ;; (let ((*print-structure* nil))1279 ;; (format t "old form = ~S~%" form)1280 ;; (format t "new form = ~S~%" new-form))1281 1277 (return-from p1-function-call (p1 new-form)))) 1282 1278 (let* ((op (car form))
Note: See TracChangeset
for help on using the changeset viewer.