Changeset 16363


Ignore:
Timestamp:
Apr 2, 2015, 6:24:46 PM (5 years ago)
Author:
svspire
Message:

Pretty sure these were typos. GB can revert if this was intentional.

Location:
trunk/source/compiler
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx-basic.lisp

    r16337 r16363  
    207207                         (> debug speed)
    208208                         (> safety speed)))))
    209                :detect-floating-point-exectptions
     209               :detect-floating-point-exceptions
    210210               (lambda (env) (> (safety-optimize-quantity env) 1)) ; extensions
    211211               )))
  • trunk/source/compiler/nx0.lisp

    r16354 r16363  
    325325(defun nx-float-safety (env)
    326326  (or (eql (safety-optimize-quantity env) 3)
    327       (let* ((hook (getf (policy.misc *nx-current-compiler-policy*) :detect-floating-point-excption)))
     327      (let* ((hook (getf (policy.misc *nx-current-compiler-policy*) :detect-floating-point-exceptions)))
    328328        (when hook
    329329          (if (functionp hook)
Note: See TracChangeset for help on using the changeset viewer.