Sun Apr 12 21:53:26 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Support passing character arguments
diff -rN -u old-smoke/src/objects/method.lisp new-smoke/src/objects/method.lisp
--- old-smoke/src/objects/method.lisp 2014-09-30 10:24:33.000000000 +0200
+++ new-smoke/src/objects/method.lisp 2014-09-30 10:24:33.000000000 +0200
@@ -103,6 +103,7 @@
(otherwise
(ctypecase argument
(number #\$)
+ (character #\$)
(string #\$)
(foreign-pointer #\?)
(sequence #\?)
diff -rN -u old-smoke/src/objects/stack.lisp new-smoke/src/objects/stack.lisp
--- old-smoke/src/objects/stack.lisp 2014-09-30 10:24:33.000000000 +0200
+++ new-smoke/src/objects/stack.lisp 2014-09-30 10:24:33.000000000 +0200
@@ -38,7 +38,7 @@
(ecase type-id
(0 (push-stack stack value 'voidp))
(1 (push-stack stack value 'bool))
- (2 (push-stack stack value 'char))
+ (2 (push-stack stack (char-code value) 'char))
(3 (push-stack stack value 'uchar))
(4 (push-stack stack value 'short))
(5 (push-stack stack value 'ushort))