X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefstruct.lisp;h=ec8162fe90164452ab3354908504698c99898bb2;hb=395c461b58f0cd484c21913c1e075593c206b5c1;hp=41f2ff14bb0473fcefedfa881d5a2c4fcbbfcf36;hpb=aa1a5c6ea31c248587d78f62943ad749ea8fbe2f;p=sbcl.git

diff --git a/src/code/defstruct.lisp b/src/code/defstruct.lisp
index 41f2ff1..ec8162f 100644
--- a/src/code/defstruct.lisp
+++ b/src/code/defstruct.lisp
@@ -272,9 +272,6 @@
     (alignment 1 :type (integer 1 2) :read-only t))
 
   (defvar *raw-slot-data-list*
-    #!+hppa
-    nil
-    #!-hppa
     (let ((double-float-alignment
            ;; white list of architectures that can load unaligned doubles:
            #!+(or x86 x86-64 ppc) 1