summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2007-08-03 18:35:20 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2007-08-03 18:35:20 +0200
commit9cdbeff22c41126e354aa7e9f1762d38197495fc (patch)
treee7a091a4a66f1d2196a153781266d3db11bf2c4d
parent0f4cab077661926ce0e99f88ec67b8b69b0b935b (diff)
Make the reader macro work in CMUCL.
darcs-hash:7c025ed4246dff7b4787ae77d1c10b9a1336be29
-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)))))