Hi, This is on Linux/armel (current SVN). ,---- | ? (lisp-implementation-version) | "Version 1.8-dev (LinuxARM32)" | ? (defun foo (a) | (declare (type short-float a)) | (- a)) | FOO | ? (foo 0.0) | 1.0 `---- -- Eric Marsden