src/ecl-port.lisp

   1 (in-package :maxima)
   2
   3 (eval-when (:execute)
   4   (compile 'maxima::make-unspecial
   5            '(lambda (s)
   6              (when (symbolp s)
   7                (format t "~%;;; Declaring ~A as NOT SPECIAL" s)
   8                (ffi::c-inline (s) (:object) :object
   9                      "(#0)->symbol.stype &= ~stp_special;"
  10                      :one-liner nil)
  11                s))))
  12
  13 (eval-when (:load-toplevel)
  14   (defun maxima::make-unspecial (s)
  15     (when (symbolp s)
  16       (format t "~%;;; Declaring ~A as NOT SPECIAL" s)
  17       (ffi::c-inline (s) (:object) :object
  18                      "(#0)->symbol.stype &= ~stp_special;"
  19                      :one-liner nil)
  20       s)))
  21
  22 (si::trap-fpe 'floating-point-underflow nil)
  23 (si::trap-fpe 'floating-point-overflow t)