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