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

[Frode Vatvedt Fjeld]

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

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

Date: Thu Feb 12 17:58:37 2004
Author: ffjeld

Index: movitz/storage-types.lisp
diff -u movitz/storage-types.lisp:1.7 movitz/storage-types.lisp:1.8
--- movitz/storage-types.lisp:1.7	Thu Feb 12 17:58:02 2004
+++ movitz/storage-types.lisp	Thu Feb 12 17:58:37 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.7 2004/02/12 22:58:02 ffjeld Exp $
+;;;; $Id: storage-types.lisp,v 1.8 2004/02/12 22:58:37 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1166,19 +1166,6 @@
 	    (third (movitz-struct-slot-values movitz-hash)) hash-sxhash)
       movitz-hash)))
 					     
-    
-
-;;;(define-binary-class movitz-dynamic-environment (movitz-heap-object-other)
-;;;  ((uplink :binary-type word
-;;;	   :map-binary-write movitz-read-and-intern
-;;;	   :initarg uplink
-;;;	   :initform nil)
-;;;   (alist  :binary-type word
-;;;	   :map-binary-write movitz-read-and-intern
-;;;	   :initarg alist
-;;;	   :initform nil)))
-
-
 ;;;
 
 (unless (typep *movitz-nil* 'movitz-nil)