From 279f8d046fbcef55eed6db38c1f16f60137895e4 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Wed, 15 Aug 1990 17:48:12 +0000
Subject: [PATCH] Fixed the order of args to setf functions.

---
 code/bit-bash.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/code/bit-bash.lisp b/code/bit-bash.lisp
index 4d79237d2..a577048c3 100644
--- a/code/bit-bash.lisp
+++ b/code/bit-bash.lisp
@@ -266,7 +266,7 @@
   (declare (type index offset))
   (%raw-bits object offset))
 
-(defun (setf %raw-bits) (object offset value)
+(defun %set-raw-bits (object offset value)
   (declare (type index offset)
 	   (type unit value))
   (setf (%raw-bits object offset) value))
-- 
GitLab