Changeset 13492


Ignore:
Timestamp:
08/14/11 10:24:32 (10 years ago)
Author:
ehuelsmann
Message:

Reindenting and removal of code which was commented out for years now.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

    r13491 r13492  
    365365        (cond
    366366          ((eq operator 'QUOTE)
    367 ;;;                      (setf form (precompiler:precompile-form form nil
    368 ;;;                                                  *compile-file-environment*))
    369367           (when compile-time-too
    370368             (eval form))
    371369           (return-from process-toplevel-form))
    372370          ((eq operator 'PUT)
    373            (setf form (precompiler:precompile-form form nil *compile-file-environment*)))
     371           (setf form (precompiler:precompile-form form nil
     372                                                   *compile-file-environment*)))
    374373          ((eq operator 'COMPILER-DEFSTRUCT)
    375            (setf form (precompiler:precompile-form form nil *compile-file-environment*)))
     374           (setf form (precompiler:precompile-form form nil
     375                                                   *compile-file-environment*)))
    376376          ((eq operator 'PROCLAIM)
    377            (setf form (precompiler:precompile-form form nil *compile-file-environment*)))
     377           (setf form (precompiler:precompile-form form nil
     378                                                   *compile-file-environment*)))
    378379          ((and (memq operator '(EXPORT REQUIRE PROVIDE SHADOW))
    379380                (or (keywordp (second form))
    380381                    (and (listp (second form))
    381382                         (eq (first (second form)) 'QUOTE))))
    382            (setf form (precompiler:precompile-form form nil *compile-file-environment*)))
     383           (setf form (precompiler:precompile-form form nil
     384                                                   *compile-file-environment*)))
    383385          ((eq operator 'IMPORT)
    384            (setf form (precompiler:precompile-form form nil *compile-file-environment*))
     386           (setf form (precompiler:precompile-form form nil
     387                                                   *compile-file-environment*))
    385388           ;; Make sure package prefix is printed when symbols are imported.
    386389           (let ((*package* +keyword-package+))
     
    394397                (eq (%car (third form)) 'FUNCTION)
    395398                (symbolp (cadr (third form))))
    396            (setf form (precompiler:precompile-form form nil *compile-file-environment*)))
    397 ;;;                     ((memq operator '(LET LET*))
    398 ;;;                      (let ((body (cddr form)))
    399 ;;;                        (if (dolist (subform body nil)
    400 ;;;                              (when (and (consp subform) (eq (%car subform) 'DEFUN))
    401 ;;;                                (return t)))
    402 ;;;                            (setf form (convert-toplevel-form form))
    403 ;;;                            (setf form (precompiler:precompile-form form nil)))))
     399           (setf form (precompiler:precompile-form form nil
     400                                                   *compile-file-environment*)))
    404401          ((eq operator 'mop::ensure-method)
    405402           (setf form (convert-ensure-method form)))
     
    407404                (not (special-operator-p operator))
    408405                (null (cdr form)))
    409            (setf form (precompiler:precompile-form form nil *compile-file-environment*)))
     406           (setf form (precompiler:precompile-form form nil
     407                                                   *compile-file-environment*)))
    410408          (t
    411 ;;;                      (setf form (precompiler:precompile-form form nil))
    412409           (note-toplevel-form form)
    413410           (setf form (convert-toplevel-form form nil)))))))
     
    422419          (*fasl-loader* (make-fasl-class-loader
    423420                          nil
    424                           (concatenate 'string "org.armedbear.lisp." (base-classname))
     421                          (concatenate 'string
     422                                       "org.armedbear.lisp." (base-classname))
    425423                          nil)))
    426424      (eval form))))
Note: See TracChangeset for help on using the changeset viewer.