Changeset 13495


Ignore:
Timestamp:
08/14/11 15:09:46 (10 years ago)
Author:
ehuelsmann
Message:

Uncomment file-compilation of IMPORT forms.

File:
1 edited

Legend:

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

    r13494 r13495  
    107107
    108108
    109 (declaim (ftype (function (t t t) t) process-toplevel-quote))
     109(declaim (ftype (function (t t t) t) process-toplevel-form))
    110110(defun precompile-toplevel-form (form stream compile-time-too)
    111111  (declare (ignore stream))
     
    373373                (EVAL-WHEN process-toplevel-eval-when)
    374374                (EXPORT precompile-toplevel-form)
    375 ;;                (IMPORT precompile-toplevel-form)
     375                (IMPORT process-toplevel-import)
    376376                (IN-PACKAGE process-toplevel-defpackage/in-package)
    377377                (LOCALLY process-toplevel-locally)
     
    385385                (SHADOW precompile-toplevel-form)
    386386                (%SET-FDEFINITION precompile-toplevel-form)
    387                 (MOP::ENSURE-METHOD process-toplevel-mop.ensure-method)
    388 ))
     387                (MOP::ENSURE-METHOD process-toplevel-mop.ensure-method)))
    389388  (install-toplevel-handler (car pair) (cadr pair)))
    390389
Note: See TracChangeset for help on using the changeset viewer.