From 9cdbeff22c41126e354aa7e9f1762d38197495fc Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 3 Aug 2007 18:35:20 +0200
Subject: Make the reader macro work in CMUCL.

darcs-hash:7c025ed4246dff7b4787ae77d1c10b9a1336be29
---
 objcl.lisp | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'objcl.lisp')

diff --git a/objcl.lisp b/objcl.lisp
index b5320b9..2b7d2ee 100644
--- a/objcl.lisp
+++ b/objcl.lisp
@@ -353,4 +353,10 @@
         `(,(if class-method-p
                'objcl-invoke-class-method
                'objcl-invoke-instance-method)
-           ,receiver ,message ,@args)))))
+           ,receiver
+           ,(make-array (list (length message))
+                        :element-type 'character
+                        :initial-contents message
+                        :adjustable nil
+                        :fill-pointer nil)
+           ,@args)))))
-- 
cgit v1.2.3