Changeset 7871


Ignore:
Timestamp:
Dec 10, 2007, 9:41:15 PM (13 years ago)
Author:
rme
Message:

Assume WITH-STACK-SHORT-FLOATS will be provided
in the TARGET package.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/lib/number-macros.lisp

    r7811 r7871  
    3838
    3939(declare-arch-specific-macro %imagpart)
    40 
    41 (defmacro with-stack-short-floats (specs &body body)
    42   (collect ((binds)
    43             (inits)
    44             (names))
    45     (dolist (spec specs)
    46       (let ((name (first spec)))
    47         (binds `(,name (%make-sfloat)))
    48         (names name)
    49         (let ((init (second spec)))
    50           (when init
    51             (inits `(%short-float ,init ,name))))))
    52     `(let* ,(binds)
    53        (declare (dynamic-extent ,@(names))
    54                 (short-float ,@(names)))
    55        ,@(inits)
    56        ,@body)))
    5740
    5841(defmacro with-stack-double-floats (specs &body body)
Note: See TracChangeset for help on using the changeset viewer.