Changeset 11916


Ignore:
Timestamp:
05/21/09 17:22:31 (12 years ago)
Author:
ehuelsmann
Message:

Indenting adjustments.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/precompiler.lisp

    r11915 r11916  
    629629        (when (special-variable-p sym)
    630630          (error 'program-error
    631                  :format-control "Attempt to bind the special variable ~S with SYMBOL-MACROLET."
     631                 :format-control
     632                 "Attempt to bind the special variable ~S with SYMBOL-MACROLET."
    632633                 :format-arguments (list sym)))
    633634        (environment-add-symbol-binding *compile-file-environment*
    634635                                        sym
    635                                         (sys::make-symbol-macro expansion))
    636         ))
     636                                        (sys::make-symbol-macro expansion))))
    637637    (multiple-value-bind (body decls)
    638638        (parse-body (cddr form) nil)
     
    649649                (when (memq special syms)
    650650                  (error 'program-error
    651                          :format-control "~S is a symbol-macro and may not be declared special."
     651                         :format-control
     652                         "~S is a symbol-macro and may not be declared special."
    652653                         :format-arguments (list special))))))))
    653654      `(locally ,@decls ,@(mapcar #'precompile1 body)))))
     
    684685             (push var result)
    685686             (environment-add-symbol-binding *compile-file-environment*
    686                                              var nil)
    687 )))
     687                                             var nil))))
    688688    (nreverse result)))
    689689
     
    792792                             (return))))))))
    793793        (unless used-p
    794           (format t "; Note: deleting unused local function ~A ~S~%" operator name)
     794          (format t "; Note: deleting unused local function ~A ~S~%"
     795                  operator name)
    795796          (let* ((new-locals (remove local locals :test 'eq))
    796797                 (new-form
     
    853854        (body (cdddr form))
    854855        (*compile-file-environment*
    855          (make-environment *compile-file-environment*))
    856 )
     856         (make-environment *compile-file-environment*)))
    857857    (dolist (var vars)
    858858      (environment-add-symbol-binding *compile-file-environment* var nil))
     
    935935  (declare (type symbol symbol))
    936936  (let ((handler (or handler
    937                      (find-symbol (sys::%format nil "PRECOMPILE-~A" (symbol-name symbol))
     937                     (find-symbol (sys::%format nil "PRECOMPILE-~A"
     938                                                (symbol-name symbol))
    938939                                  'precompiler))))
    939940    (unless (and handler (fboundp handler))
     
    993994
    994995                  (DECLARE              precompile-identity)
    995 ;;                   (DEFMETHOD            precompile-identity)
    996996                  (DEFUN                precompile-defun)
    997997                  (GO                   precompile-identity)
Note: See TracChangeset for help on using the changeset viewer.