[movitz-cvs] CVS update: movitz/storage-types.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	storage-types.lisp 
Log Message:
Removed dead code.

Date: Tue Sep 21 15:04:02 2004
Author: ffjeld

Index: movitz/storage-types.lisp
diff -u movitz/storage-types.lisp:1.41 movitz/storage-types.lisp:1.42
--- movitz/storage-types.lisp:1.41	Fri Sep 17 13:06:05 2004
+++ movitz/storage-types.lisp	Tue Sep 21 15:04:02 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Sun Oct 22 00:22:43 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: storage-types.lisp,v 1.41 2004/09/17 11:06:05 ffjeld Exp $
+;;;; $Id: storage-types.lisp,v 1.42 2004/09/21 13:04:02 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -383,11 +383,6 @@
     object)
    (t (call-next-method))))
     
-(defun vector-type-tag (element-type)
-  (dpb (enum-value 'movitz-vector-element-type element-type)
-       (byte 8 8)
-       (enum-value 'other-type-byte :vector)))
-
 (defun basic-vector-type-tag (element-type)
   (dpb (enum-value 'movitz-vector-element-type element-type)
        (byte 8 8)