X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Fparms.lisp;h=e377082663dfdc87a09df04367b5ed587932c6ce;hb=315285fcf8bf1f7e732da307cfaf31f18f412811;hp=d3e843ac31ca1228e88ebfbbb6e59bce311bba32;hpb=ad096f09fb631331f584121bfe5ee3bfc7f1f951;p=sbcl.git

diff --git a/src/compiler/sparc/parms.lisp b/src/compiler/sparc/parms.lisp
index d3e843a..e377082 100644
--- a/src/compiler/sparc/parms.lisp
+++ b/src/compiler/sparc/parms.lisp
@@ -219,14 +219,7 @@
     two-arg-+ two-arg-- two-arg-* two-arg-/ two-arg-< two-arg-> two-arg-=
     two-arg-<= two-arg->= two-arg-/= eql %negate
     two-arg-and two-arg-ior two-arg-xor two-arg-eqv
-    two-arg-gcd two-arg-lcm
-    ))
-
-;;;; Assembler parameters:
-
-;;; The number of bits per element in the assemblers code vector.
-(defparameter *assembly-unit-length* 8)
-
+    two-arg-gcd two-arg-lcm))
 
 ;;;; Pseudo-atomic trap number