Changeset 11156


Ignore:
Timestamp:
Oct 18, 2008, 6:14:14 PM (11 years ago)
Author:
gz
Message:

Remove old bootstrapping version of compile-named-function

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx.lisp

    r11088 r11156  
    153153
    154154
    155 
    156 
    157155(eval-when (:compile-toplevel)
    158156  (declaim (ftype (function (&rest ignore) t)  ppc-compile)))
     
    160158(defparameter *nx-discard-xref-info-hook* nil)
    161159
    162 (defun compile-named-function (def &rest args)
    163  ;; -- TEMP -- bootstrapping a version using keyword args.
    164  (ignore-errors
    165    (destructuring-bind (&key name env keep-lambda keep-symbols policy load-time-eval-token target) args
    166      (setq args (list name env keep-lambda keep-symbols policy load-time-eval-token target))))
    167  (destructuring-bind (&optional name env keep-lambda keep-symbols policy *load-time-eval-token* target) args
    168  ;;
     160(defun compile-named-function (def &key name env keep-lambda keep-symbols policy load-time-eval-token target)
    169161  (when (and name *nx-discard-xref-info-hook*)
    170162    (funcall *nx-discard-xref-info-hook* name))
    171163  (setq
    172164   def
    173    (let ((env (new-lexical-environment env)))
     165   (let ((*load-time-eval-token* load-time-eval-token)
     166         (env (new-lexical-environment env)))
    174167     (setf (lexenv.variables env) 'barrier)
    175168       (let* ((*target-backend* (or (if target (find-backend target)) *host-backend*))
    176169              (afunc (nx1-compile-lambda
    177170                      name
    178                       def 
     171                      def
    179172                      (make-afunc)
    180173                      nil
     
    185178           afunc
    186179           (funcall (backend-p2-compile *target-backend*)
    187             afunc
    188             ;; will also bind *nx-lexical-environment*
    189             (if keep-lambda (if (lambda-expression-p keep-lambda) keep-lambda def))
    190             keep-symbols)))))
     180                    afunc
     181                    ;; will also bind *nx-lexical-environment*
     182                    (if keep-lambda (if (lambda-expression-p keep-lambda) keep-lambda def))
     183                    keep-symbols)))))
    191184  (values (afunc-lfun def) (afunc-warnings def)))
    192 )
    193 
    194185
    195186(defparameter *compiler-whining-conditions*
Note: See TracChangeset for help on using the changeset viewer.