Changeset 405

Timestamp:

Jan 25, 2004, 2:16:07 PM (21 years ago)

Author:

Gary Byers

Message:

WITH-STACK-SHORT-FLOATS is PPC32-specific.

File:

• trunk/ccl/lib/number-macros.lisp (modified) (1 diff)

trunk/ccl/lib/number-macros.lisp

@@ -71 +71 @@
 
 (setf (macro-function 'with-ppc-stack-double-floats) (macro-function 'with-stack-double-floats))
-
-(defmacro with-stack-short-floats (specs &body body)
-  (collect ((binds)
-            (inits)
-            (names))
-    (dolist (spec specs)
-      (let ((name (first spec)))
-        (binds `(,name (%alloc-misc ppc32::single-float.element-count ppc32::subtag-single-float)))
-        (names name)
-        (let ((init (second spec)))
-          (when init
-            (inits `(%short-float ,init ,name))))))
-    `(let* ,(binds)
-      (declare (dynamic-extent ,@(names))
-               (short-float ,@(names)))
-      ,@(inits)
-      ,@body)))
-
-(setf (macro-function 'with-ppc-stack-short-floats) (macro-function 'with-stack-short-floats))