Changeset 9887


Ignore:
Timestamp:
Jul 2, 2008, 10:46:01 PM (11 years ago)
Author:
gz
Message:

Make specifier-type accept (and ignore for now) an optional env arg. Also, make calls to compile-named-function use keyword args

Location:
trunk/source
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/x862.lisp

    r9879 r9887  
    92139213                         *target-ftd*)))
    92149214    (multiple-value-bind (xlfun warnings)
    9215         (compile-named-function def nil
    9216                                 nil
    9217                                 nil
    9218                                 nil
    9219                                 nil
    9220                                 nil
    9221                                 target)
     9215        (compile-named-function def :target target)
    92229216      (signal-or-defer-warnings warnings nil)
    92239217      (when disassemble
  • trunk/source/compiler/nx.lisp

    r9872 r9887  
    8888                       (if (functionp def)
    8989                         def
    90                          (compile-named-function def spec nil *save-definitions* *save-local-symbols*))
     90                         (compile-named-function def
     91                                                 :name spec
     92                                                 :keep-lambda *save-definitions*
     93                                                 :keep-symbols *save-local-symbols*))
    9194    (let ((harsh nil) (some nil) (init t))
    9295      (dolist (w warnings)
     
    121124         (*target-backend* (or backend *target-backend*)))
    122125    (multiple-value-bind (xlfun warnings)
    123         (compile-named-function def nil
    124                                 nil
    125                                 nil
    126                                 nil
    127                                 nil
    128                                 nil
    129                                 target)
     126        (compile-named-function def :target target)
    130127      (signal-or-defer-warnings warnings nil)
    131128      (ppc-xdisassemble xlfun :target target)
     
    134131(defun compile-user-function (def name &optional env)
    135132  (multiple-value-bind (lfun warnings)
    136                        (compile-named-function def name
    137                                                env
    138                                                *save-definitions*
    139                                                *save-local-symbols*)
     133                       (compile-named-function def
     134                                               :name name
     135                                               :env env
     136                                               :keep-lambda *save-definitions*
     137                                               :keep-symbols *save-local-symbols*)
    140138    (signal-or-defer-warnings warnings env)
    141139    lfun))
  • trunk/source/compiler/nx1.lisp

    r9331 r9887  
    9494          (cons
    9595           'macro
    96            (multiple-value-bind (function warnings) (compile-named-function (parse-macro name arglist mbody old-env) name  old-env)
     96           (multiple-value-bind (function warnings)
     97               (compile-named-function (parse-macro name arglist mbody old-env) :name name :env old-env)
    9798             (setq *nx-warnings* (append *nx-warnings* warnings))
    9899             function)))
     
    10681069    (multiple-value-bind (function warnings)
    10691070                         (compile-named-function
    1070                           `(lambda () ,form) nil nil nil nil nil *nx-load-time-eval-token* (backend-name *target-backend*))
     1071                          `(lambda () ,form)
     1072                          :load-time-eval-token *nx-load-time-eval-token*
     1073                          :target (backend-name *target-backend*))
    10711074      (setq *nx-warnings* (append *nx-warnings* warnings))
    10721075      (nx1-immediate (list *nx-load-time-eval-token* `(funcall ,function))))
  • trunk/source/level-1/l1-typesys.lisp

    r9250 r9887  
    14691469;;; VALUES type.
    14701470;;;
    1471 (defun specifier-type (x)
     1471(defun specifier-type (x &optional env)
     1472  (declare (ignore env))
    14721473  (let ((res (values-specifier-type x)))
    14731474    (when (values-ctype-p res)
  • trunk/source/lib/encapsulate.lisp

    r9846 r9887  
    732732
    733733(defun compile-named-function-warn (fn name)
    734   (multiple-value-bind (result warnings)(compile-named-function fn name)   
     734  (multiple-value-bind (result warnings)(compile-named-function fn :name name)
    735735    (when warnings
    736736      (let ((first t))
  • trunk/source/lib/misc.lisp

    r9005 r9887  
    704704        (setq fun (closure-function fun)))
    705705    (when (lambda-expression-p fun)
    706       (setq fun (compile-named-function fun nil)))
     706      (setq fun (compile-named-function fun)))
    707707    fun))
    708708
  • trunk/source/lib/nfcomp.lisp

    r9848 r9887  
    271271                              (signal c))))
    272272      (funcall (compile-named-function
    273                 `(lambda () ,form) nil env nil nil
    274                 *compile-time-evaluation-policy*)))))
     273                `(lambda () ,form)
     274                :env env :policy *compile-time-evaluation-policy*)))))
    275275
    276276
     
    682682      (push (list* name
    683683                   'macro
    684                    (compile-named-function lambda-expression name env))
     684                   (compile-named-function lambda-expression :name name :env env))
    685685            (defenv.functions definition-env))
    686686      (record-function-info name (list (cons nil 'macro)) env))
     
    867867         (*nx-break-on-program-errors* (not (memq *fasl-break-on-program-errors* '(nil :defer)))))
    868868    (multiple-value-bind (lfun warnings)
    869                          (compile-named-function
    870                           def name
    871                           env
    872                           *fasl-save-definitions*
    873                           *fasl-save-local-symbols*
    874                           *default-file-compilation-policy*
    875                           cfasl-load-time-eval-sym
    876                           *fasl-target*)
     869        (compile-named-function def
     870                                :name name
     871                                :env env
     872                                :keep-lambda *fasl-save-definitions*
     873                                :keep-symbols *fasl-save-local-symbols*
     874                                :policy *default-file-compilation-policy*
     875                                :load-time-eval-token cfasl-load-time-eval-sym
     876                                :target *fasl-target*)
    877877      (fcomp-signal-or-defer-warnings warnings env)
    878878      lfun)))
Note: See TracChangeset for help on using the changeset viewer.