close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 4536 for branches/f4grobner


Ignore:
Timestamp:
2016-06-18T13:02:56-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

Commented out optimization proclamations

Location:
branches/f4grobner
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/division.lisp

    r4497 r4536  
    3737(in-package :division)
    3838
    39 (proclaim '(optimize (speed 3) (space 0) (safety 0) (debug 0)))
     39;;(proclaim '(optimize (speed 3) (space 0) (safety 0) (debug 0)))
    4040
    4141(defvar $poly_top_reduction_only nil

  • branches/f4grobner/monom.lisp

    r4503 r4536  
    8282(in-package "MONOM")
    8383
    84 (proclaim '(optimize (speed 3) (space 0) (safety 0) (debug 0)))
     84;;(proclaim '(optimize (speed 3) (space 0) (safety 0) (debug 0)))
    8585
    8686(deftype exponent ()

  • branches/f4grobner/polynomial.lisp

    r4521 r4536  
    7373(in-package "POLYNOMIAL")
    7474
    75 (proclaim '(optimize (speed 3) (space 0) (safety 0) (debug 0)))
     75;;(proclaim '(optimize (speed 3) (space 0) (safety 0) (debug 0)))
    7676
    7777(defclass poly (ring)

  • branches/f4grobner/ring.lisp

    r4498 r4536  
    5353(in-package "RING")
    5454
    55 (proclaim '(optimize (speed 3) (space 0) (safety 0) (debug 0)))
     55;;(proclaim '(optimize (speed 3) (space 0) (safety 0) (debug 0)))
    5656
    5757(defclass ring () () (:documentation "An abstract ring."))

  • branches/f4grobner/termlist.lisp

    r1964 r4536  
    4545(in-package :termlist)
    4646
    47 (proclaim '(optimize (speed 3) (space 0) (safety 0) (debug 0)))
     47;;(proclaim '(optimize (speed 3) (space 0) (safety 0) (debug 0)))
    4848
    4949(defun termlist-sugar (p &aux (sugar -1))
Note: See TracChangeset for help on using the changeset viewer.