X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fvm-macs.lisp;h=66d399aa8d3a2d058ceba15df05831d5ed623bd1;hb=b1b85bbf17f686a0787304a04cf0e01e8216d038;hp=ef031a952cbe5a3af01ff4b5bca8e82f527fdf73;hpb=5dcf5905dc38232b3cc5ec6b309ea5c6424db957;p=sbcl.git

diff --git a/src/compiler/generic/vm-macs.lisp b/src/compiler/generic/vm-macs.lisp
index ef031a9..66d399a 100644
--- a/src/compiler/generic/vm-macs.lisp
+++ b/src/compiler/generic/vm-macs.lisp
@@ -33,14 +33,13 @@
 		(remove-keywords (cddr options) keywords)))))
 
 (def!struct (prim-object-slot
-	     (:constructor make-slot (name docs rest-p offset length options))
+	     (:constructor make-slot (name docs rest-p offset options))
 	     (:make-load-form-fun just-dump-it-normally)
 	     (:conc-name slot-))
   (name nil :type symbol)
   (docs nil :type (or null simple-string))
   (rest-p nil :type (member t nil))
   (offset 0 :type fixnum)
-  (length 1 :type fixnum)
   (options nil :type list))
 
 (def!struct (primitive-object (:make-load-form-fun just-dump-it-normally))
@@ -79,7 +78,7 @@
 		       (set-known nil set-known-p) set-trans
 		       &allow-other-keys)
 	    (if (atom spec) (list spec) spec)
-	  (slots (make-slot slot-name docs rest-p offset length
+	  (slots (make-slot slot-name docs rest-p offset
 			    (remove-keywords options
 					     '(:docs :rest-p :length))))
 	  (let ((offset-sym (symbolicate name "-" slot-name