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

[Frode Vatvedt Fjeld]

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

Modified Files:
	special-operators.lisp 
Log Message:
Removed some dead comments.

Date: Fri Jan 16 14:25:04 2004
Author: ffjeld

Index: movitz/special-operators.lisp
diff -u movitz/special-operators.lisp:1.2 movitz/special-operators.lisp:1.3
--- movitz/special-operators.lisp:1.2	Thu Jan 15 11:40:40 2004
+++ movitz/special-operators.lisp	Fri Jan 16 14:25:04 2004
@@ -1,14 +1,14 @@
 ;;;;------------------------------------------------------------------
 ;;;; 
 ;;;;    Copyright (C) 20012000, 2002-2004,
-;;;;    Department of Computer Science, University of Tromsø, Norway
+;;;;    Department of Computer Science, University of Tromso, Norway
 ;;;; 
 ;;;; Filename:      special-operators.lisp
 ;;;; Description:   Compilation of internal special operators.
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Nov 24 16:22:59 2000
 ;;;;                
-;;;; $Id: special-operators.lisp,v 1.2 2004/01/15 16:40:40 ffjeld Exp $
+;;;; $Id: special-operators.lisp,v 1.3 2004/01/16 19:25:04 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -530,8 +530,9 @@
 			     (list (register32-to-low8 returns))))
 		       (setf (assembly-macro-expander :compile-arglist amenv)
 			 #'(lambda (expr)
-			     (destructuring-bind (() &rest arg-forms)
+			     (destructuring-bind (ignore &rest arg-forms)
 				 (cdr expr)
+			       (declare (ignore ignore))
 			       (setq side-effects t)
 			       (make-compiled-argument-forms arg-forms funobj env))))
 		       (setf (assembly-macro-expander :compile-two-forms amenv)
@@ -545,29 +546,11 @@
 				   (setq side-effects t))
 				 (setq modifies (modifies-union modifies sub-modifies))
 				 code))))
-;;;		       #+ignore
 		       (setf (assembly-macro-expander :call-global-constant amenv)
 			 #'(lambda (expr)
 			     (destructuring-bind (name)
 				 (cdr expr)
 			       `((:globally (:call (:edi (:edi-offset ,name))))))))
-;;;		       #+ignore
-;;;		       (setf (assembly-macro-expander :store-global-constant amenv)
-;;;			 #'(lambda (expr)
-;;;			     (assert side-effects ()
-;;;			       "Can't do :store-global-constant when :side-effects nil is declared.")
-;;;			     (destructuring-bind (name source &key thread-local)
-;;;				 (cdr expr)
-;;;			       (let ((pf (if thread-local '((:fs-override)))))
-;;;				 `((, at pf :movl ,source
-;;;					 ,(make-indirect-reference :edi (global-constant-offset name))))))))
-;;;		       (setf (assembly-macro-expander :load-global-constant amenv)
-;;;			 #'(lambda (expr)
-;;;			     (destructuring-bind (name destination &key thread-local)
-;;;				 (cdr expr)
-;;;			       (let ((pf (if thread-local '((:fs-override)))))
-;;;				 `((, at pf :movl ,(make-indirect-reference :edi (global-constant-offset name))
-;;;					,destination))))))
 		       (setf (assembly-macro-expander :warn amenv)
 			 #'(lambda (expr)
 			     (apply #'warn (cdr expr))
@@ -577,39 +560,6 @@
 			   (destructuring-bind (var reg &key (type t))
 			       (cdr expr)
 			     `((:store-lexical ,(movitz-binding var env) ,reg :type ,type)))))
-;;;		       (setf (assembly-macro-expander :locally amenv)
-;;;			 (lambda (expr)
-;;;			   (destructuring-bind (sub-instr)
-;;;			       (cdr expr)
-;;;			     (assembly-macroexpand (list (cond
-;;;							  ((atom sub-instr)
-;;;							   sub-instr)
-;;;							  ((consp (car sub-instr))
-;;;							   (list* (append *compiler-local-segment-prefix*
-;;;									  (car sub-instr))
-;;;								  (cdr sub-instr)))
-;;;							  (t (list* *compiler-local-segment-prefix*
-;;;								    sub-instr))))
-;;;						   amenv))))
-;;;		       (setf (assembly-macro-expander :globally amenv)
-;;;			 (lambda (expr)
-;;;			   (destructuring-bind (sub-instr)
-;;;			       (cdr expr)
-;;;			     (assembly-macroexpand (list (cond
-;;;							  ((atom sub-instr)
-;;;							   sub-instr)
-;;;							  ((consp (car sub-instr))
-;;;							   (list* (append *compiler-global-segment-prefix*
-;;;									  (car sub-instr))
-;;;								  (cdr sub-instr)))
-;;;							  (t (list* *compiler-global-segment-prefix*
-;;;								    sub-instr))))
-;;;						   amenv))))
-;;;		       (setf (assembly-macro-expander :edi-offset amenv)
-;;;			 (lambda (expr)
-;;;			   (destructuring-bind (name)
-;;;			       (cdr expr)
-;;;			     (list (global-constant-offset name)))))
 		       (let ((code (assembly-macroexpand inline-asm amenv)))
 			 (assert (not (and (not side-effects)
 					   (tree-search code '(:store-lexical))))