Sat Jan 23 20:45:41 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>

* class & type size (and some more exports)

--- old-smoke/src/objects/stack.lisp 2014-10-30 08:08:26.000000000 +0100

+++ new-smoke/src/objects/stack.lisp 2014-10-30 08:08:26.000000000 +0100

@@ -111,7 +111,9 @@

(prog1 (funcall (car translation) pointer)

(when (stack-p type)

(funcall (cdr translation) pointer))))

- (error "Do not know how to convert the type ~A to Lisp." type)))

+ (prog1 (foreign-slot-value stack-item 'smoke-stack-item 'voidp)

+ (cerror "Return the pointer"

+ "Do not know how to convert the type ~A to Lisp." type))))

(1 (foreign-slot-value stack-item 'smoke-stack-item 'bool))

(2 (code-char (foreign-slot-value stack-item 'smoke-stack-item 'char)))

(3 (code-char (foreign-slot-value stack-item 'smoke-stack-item 'uchar)))