Make the reader macro work in CMUCL.

darcs-hash:7c025ed4246dff7b4787ae77d1c10b9a1336be29

1 files changed, 7 insertions, 1 deletions

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