Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv14567

Modified Files: compiler.lisp Log Message: Removed some dead code.

--- /project/movitz/cvsroot/movitz/compiler.lisp 2007/03/11 22:40:57 1.182 +++ /project/movitz/cvsroot/movitz/compiler.lisp 2007/03/16 17:47:27 1.183 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.182 2007/03/11 22:40:57 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.183 2007/03/16 17:47:27 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -5986,26 +5986,7 @@ :code nil :final-form binding :returns binding - :functional-p t)) - #+ignore - (t (let ((returns (ecase (result-mode-type result-mode) - ((:function :multiple-values :eax) - :eax) - (:lexical-binding - result-mode) - ((:ebx :ecx :edx :esi :push - ;; :untagged-fixnum-eax - :untagged-fixnum-ecx - :boolean-branch-on-true - :boolean-branch-on-false) - result-mode) - (:boolean - :boolean=zf=0)))) - (compiler-values () - :code (make-compiled-lexical-load binding returns) - :final-form binding - :returns returns - :functional-p t)))))) + :functional-p t)))))

(defun make-compiled-lexical-load (binding result-mode &rest key-args) "Do what is necessary to load lexical binding <binding>." @@ -6131,13 +6112,6 @@ :type nil)) (t (compiler-values (self-eval) :returns binding)))))) -;;; ((:eax :single-value :multiple-values :function) -;;; (compiler-values (self-eval) -;;; :code `((:load-lexical ,binding :eax)) -;;; :returns :eax)) -;;; (t (compiler-values (self-eval) -;;; :code `((:load-lexical ,binding ,result-mode)) -;;; :returns result-mode))))))

(define-compiler compile-implicit-progn (&all all &form forms &top-level-p top-level-p &result-mode result-mode) @@ -6563,14 +6537,7 @@ (cond ((not (new-binding-located-p binding frame-map)) (unless (or (movitz-env-get (binding-name binding) 'ignore nil (binding-env binding)) - (movitz-env-get (binding-name binding) 'ignorable nil (binding-env binding)) - #+ignore - (labels ((recursive-located-p (b) - (or (new-binding-located-p b frame-map) - (and (typep binding 'forwarding-binding) - (recursive-located-p (forwarding-binding-target b)))))) - (recursive-located-p binding))) - #+ignore (warn "Unused variable: ~S." (binding-name binding)))) + (movitz-env-get (binding-name binding) 'ignorable nil (binding-env binding))))) ((typep binding 'forwarding-binding) ;; No need to do any initialization because the target will be initialized. (assert (not (binding-lended-p binding)))