Wed Mar 10 17:38:58 CET 2010  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Improve missing to-lisp-translator error message.
diff -rN -u old-smoke/src/objects/stack.lisp new-smoke/src/objects/stack.lisp
--- old-smoke/src/objects/stack.lisp	2014-10-30 08:05:51.000000000 +0100
+++ new-smoke/src/objects/stack.lisp	2014-10-30 08:05:51.000000000 +0100
@@ -112,8 +112,9 @@
              (when (stack-p type)
                (funcall (cdr translation) pointer))))
          (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))))
+           (cerror "Return the pointer"
+                   "Missing type translator 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)))