diff --git a/src/cmp/cmpfun.lsp b/src/cmp/cmpfun.lsp
index efa8c7eda..b797babe5 100644
--- a/src/cmp/cmpfun.lsp
+++ b/src/cmp/cmpfun.lsp
@@ -380,8 +380,8 @@
 	 (c1expr `(the fixnum (ldb1 ,size ,pos ,(second args))))))
 
 (put-sysprop 'ldb1 :INLINE-ALWAYS
-	     '((fixnum fixnum fixnum) fixnum nil nil
-	       "((((~(-1 << (#0))) << (#1)) & (#2)) >> (#1))"))
+	     '(((fixnum fixnum fixnum) fixnum nil nil
+		"((((~(-1 << (#0))) << (#1)) & (#2)) >> (#1))")))
 
 ;----------------------------------------------------------------------