Changeset 9872


Ignore:
Timestamp:
Jul 1, 2008, 10:23:57 PM (11 years ago)
Author:
gz
Message:

make compile-named-function handle both keyword and positional args (bootstrapping)

File:
1 edited

Legend:

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

    r8755 r9872  
    162162(defparameter *nx-discard-xref-info-hook* nil)
    163163
    164 (defun compile-named-function
    165     (def &optional name env keep-lambda keep-symbols policy *load-time-eval-token* target)
     164(defun compile-named-function (def &rest args)
     165 ;; -- TEMP -- bootstrapping a version using keyword args.
     166 (ignore-errors
     167   (destructuring-bind (&key name env keep-lambda keep-symbols policy load-time-eval-token target) args
     168     (setq args (list name env keep-lambda keep-symbols policy load-time-eval-token target))))
     169 (destructuring-bind (&optional name env keep-lambda keep-symbols policy *load-time-eval-token* target) args
     170 ;;
    166171  (when (and name *nx-discard-xref-info-hook*)
    167172    (funcall *nx-discard-xref-info-hook* name))
     
    187192            keep-symbols)))))
    188193  (values (afunc-lfun def) (afunc-warnings def)))
     194)
    189195
    190196
Note: See TracChangeset for help on using the changeset viewer.