Changeset 11879


Ignore:
Timestamp:
05/16/09 07:26:31 (9 years ago)
Author:
ehuelsmann
Message:

Reindenting for width < 80.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp

    r11873 r11879  
    4747(eval-when (:compile-toplevel :load-toplevel :execute)
    4848  (defun generate-inline-expansion (block-name lambda-list body)
    49     (cond ((intersection lambda-list '(&optional &rest &key &allow-other-keys &aux) :test 'eq)
     49    (cond ((intersection lambda-list
     50                         '(&optional &rest &key &allow-other-keys &aux)
     51                         :test #'eq)
    5052           nil)
    5153          (t
    5254           (setf body (copy-tree body))
    53            (list 'LAMBDA lambda-list (precompile-form (list* 'BLOCK block-name body) t)))))
     55           (list 'LAMBDA lambda-list
     56                 (precompile-form (list* 'BLOCK block-name body) t)))))
    5457  ) ; EVAL-WHEN
    5558
     
    7780                 (cond ((and variable
    7881                             ;; see comment below (and DO-ALL-SYMBOLS.11)
    79                              (eq (variable-compiland variable) *current-compiland*))
     82                             (eq (variable-compiland variable)
     83                                 *current-compiland*))
    8084                        (setf (variable-special-p variable) t))
    8185                       (t
    8286                        (dformat t "adding free special ~S~%" name)
    83                         (push (make-variable :name name :special-p t) free-specials))))))
     87                        (push (make-variable :name name :special-p t)
     88                              free-specials))))))
    8489            (TYPE
    8590             (dolist (name (cddr decl))
     
    9095                            ;; see CREATE-GREEDY-NO-ZERO-MATCHER in cl-ppcre.
    9196                            ;; FIXME suboptimal, since we ignore the declaration
    92                             (eq (variable-compiland variable) *current-compiland*))
     97                            (eq (variable-compiland variable)
     98                                *current-compiland*))
    9399                   (setf (variable-declared-type variable)
    94100                         (make-compiler-type (cadr decl)))))))
     
    159165    (let* ((,name (%car ,varspec))
    160166           (,initform (p1 (%cadr ,varspec)))
    161            (,var (make-variable :name (check-name ,name) :initform ,initform)))
     167           (,var (make-variable :name (check-name ,name)
     168                                            :initform ,initform)))
    162169      (push ,var ,variables-var)
    163170      ,@body1))
     
    264271      (setf (block-vars block) (nreverse vars)))
    265272    (setf body (p1-body body))
    266     (setf (block-form block) (list* 'MULTIPLE-VALUE-BIND varlist values-form body))
     273    (setf (block-form block)
     274          (list* 'MULTIPLE-VALUE-BIND varlist values-form body))
    267275    block))
    268276
     
    691699           (let ((variable (local-function-variable local-function)))
    692700             (when variable
    693                  (dformat t "p1-function ~S used non-locally~%" (variable-name variable))
     701                 (dformat t "p1-function ~S used non-locally~%"
     702                          (variable-name variable))
    694703                 (setf (variable-used-non-locally-p variable) t)))
    695704           form)
     
    849858                        (t
    850859                         (push (list 'VALUES-LIST sym) syms)
    851                          (push (list sym (list 'MULTIPLE-VALUE-LIST arg)) lets))))))
     860                         (push (list sym
     861                                     (list 'MULTIPLE-VALUE-LIST arg))
     862                               lets))))))
    852863          (list 'LET* (nreverse lets) (list* 'THROW (nreverse syms))))
    853864        form)))
     
    881892                              (push sym syms)
    882893                              (push (list sym arg) lets)))))
    883                    (list 'LET* (nreverse lets) (list* (car form) (nreverse syms)))))))
     894                   (list 'LET* (nreverse lets)
     895                         (list* (car form) (nreverse syms)))))))
    884896        form)))
    885897
     
    904916                   (when (and explain (memq :calls explain))
    905917                     (format t ";   inlining call to local function ~S~%" op)))
    906                  (return-from p1-function-call (p1 (expand-inline form expansion))))))
     918                 (return-from p1-function-call
     919                   (p1 (expand-inline form expansion))))))
    907920
    908921           ;; FIXME
Note: See TracChangeset for help on using the changeset viewer.