[movitz-cvs] CVS update: movitz/special-operators.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv8243

Modified Files:
	special-operators.lisp 
Log Message:
Minor edits and removed warnings.

Date: Tue Feb 10 13:06:44 2004
Author: ffjeld

Index: movitz/special-operators.lisp
diff -u movitz/special-operators.lisp:1.7 movitz/special-operators.lisp:1.8
--- movitz/special-operators.lisp:1.7	Sun Feb  8 18:27:56 2004
+++ movitz/special-operators.lisp	Tue Feb 10 13:06:44 2004
@@ -8,7 +8,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Nov 24 16:22:59 2000
 ;;;;                
-;;;; $Id: special-operators.lisp,v 1.7 2004/02/08 23:27:56 ffjeld Exp $
+;;;; $Id: special-operators.lisp,v 1.8 2004/02/10 18:06:44 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -593,9 +593,7 @@
       (cdr form)
     (assert (not argument))
     (compiler-values ()
-      :code `(,@(when argument
-		  `((:load-lexical ,argument :eax)))
-		(:call (:edi ,(slot-offset 'movitz-constant-block if-name))))
+      :code `((:call (:edi ,(slot-offset 'movitz-constant-block if-name))))
       :returns :nothing)))
 
 (define-special-operator inlined-not (&all forward &form form &result-mode result-mode)
@@ -979,6 +977,7 @@
 	       (let ((term2-type (type-specifier-primary term2-type)))
 ;;;		 (warn "t2-type: ~S, t2-ret: ~S, rm: ~S"
 ;;;		       term2-type term2-returns result-mode)
+		 (declare (ignore term2-type))
 		 (case term2-returns
 		   (:untagged-fixnum-eax
 		    (case result-mode
@@ -1063,8 +1062,9 @@
 		     (:into))))))))
 
 (define-special-operator muerte::include (&form form)
-  (let ((*require-dependency-chain* (and (boundp '*require-dependency-chain*)
-					 *require-dependency-chain*)))
+  (let ((*require-dependency-chain*
+	 (and (boundp '*require-dependency-chain*)
+	      (symbol-value '*require-dependency-chain*))))
     (declare (special *require-dependency-chain*))
     (destructuring-bind (module-name &optional path-spec)
 	(cdr form)
@@ -1142,6 +1142,7 @@
 	       (make-compiled-argument-forms sub-forms (all :funobj) (all :env))
 	     (multiple-value-bind (stack-restore-code new-returns)
 		 (make-compiled-stack-restore stack-displacement result-mode :multiple-values)
+	       (declare (ignore stack-restore-code))
 	       (compiler-values ()
 		 :returns new-returns
 		 :type `(values , at arguments-types)