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@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)