[movitz-cvs] CVS update: movitz/losp/muerte/los-closette-compiler.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	los-closette-compiler.lisp 
Log Message:
Added some ignore declarations to get rid of some warnings.

Date: Mon Feb  9 19:38:45 2004
Author: ffjeld

Index: movitz/losp/muerte/los-closette-compiler.lisp
diff -u movitz/losp/muerte/los-closette-compiler.lisp:1.4 movitz/losp/muerte/los-closette-compiler.lisp:1.5
--- movitz/losp/muerte/los-closette-compiler.lisp:1.4	Wed Feb  4 10:29:25 2004
+++ movitz/losp/muerte/los-closette-compiler.lisp	Mon Feb  9 19:38:45 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Thu Aug 29 13:15:11 2002
 ;;;;                
-;;;; $Id: los-closette-compiler.lisp,v 1.4 2004/02/04 15:29:25 ffjeld Exp $
+;;;; $Id: los-closette-compiler.lisp,v 1.5 2004/02/10 00:38:45 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -589,7 +589,7 @@
 ;;;
   
   (defun movitz-make-instance-funcallable (metaclass &rest all-keys &key name direct-superclasses direct-slots &allow-other-keys)
-    ;; (declare (ignore metaclass))
+    (declare (ignore all-keys))
     (let ((class (std-allocate-instance metaclass)))
       #+ignore
       (dolist (slot (class-slots (movitz-class-of class)))
@@ -650,7 +650,7 @@
 					&key name slots direct-slots ((:metaclass dummy))
 					     (direct-superclasses
 					      (list (movitz-find-class 'structure-object))))
-    (declare (ignore dummy))
+    (declare (ignore dummy all-keys))
     (assert (null direct-slots))
     (let ((class (std-allocate-instance (if (symbolp metaclass)
 					    (movitz-find-class metaclass)