summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--objcl.lisp8
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)))))