[movitz-cvs] CVS update: movitz/losp/muerte/arrays.lisp
Frode Vatvedt Fjeld
ffjeld at common-lisp.net
Fri Apr 23 14:59:55 UTC 2004
Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv13561
Modified Files:
arrays.lisp
Log Message:
Minor edits.
Date: Fri Apr 23 10:59:55 2004
Author: ffjeld
Index: movitz/losp/muerte/arrays.lisp
diff -u movitz/losp/muerte/arrays.lisp:1.17 movitz/losp/muerte/arrays.lisp:1.18
--- movitz/losp/muerte/arrays.lisp:1.17 Fri Apr 16 10:42:51 2004
+++ movitz/losp/muerte/arrays.lisp Fri Apr 23 10:59:55 2004
@@ -10,7 +10,7 @@
;;;; Author: Frode Vatvedt Fjeld <frodef at acm.org>
;;;; Created at: Sun Feb 11 23:14:04 2001
;;;;
-;;;; $Id: arrays.lisp,v 1.17 2004/04/16 14:42:51 ffjeld Exp $
+;;;; $Id: arrays.lisp,v 1.18 2004/04/23 14:59:55 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
@@ -250,8 +250,7 @@
done))
(t (vector &rest subscripts)
- (declare (dynamic-extent subscripts)
- (ignore vector subscripts))
+ (declare (ignore vector subscripts))
(error "Multi-dimensional arrays not implemented."))))
(defun (setf aref) (value vector &rest subscripts)
@@ -334,8 +333,7 @@
(:compile-form (:result-mode :ignore) (error "Not a vector: ~S" vector))
done))
(t (value vector &rest subscripts)
- (declare (dynamic-extent subscripts)
- (ignore value vector subscripts))
+ (declare (ignore value vector subscripts))
(error "Multi-dimensional arrays not implemented."))))
More information about the Movitz-cvs
mailing list