From 018224ae870bf2f2d9fc29ba090388aaccc004da Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Mon, 22 Sep 2003 07:51:34 +0000
Subject: [PATCH] Fixed typo

---
 src/cmp/cmpfun.lsp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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))")))
 
 ;----------------------------------------------------------------------