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 2236


Ignore:
Timestamp:
2015-06-18T11:24:29-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/monom.lisp

    r2235 r2236  
    7070         
    7171
    72 ;; This is good for tracing calls to MAKE-INSTANCE
    73 (defmethod make-instance :before ((class standard-class)
    74                           &rest args
    75                           &key &allow-other-keys)
    76   "A constructor (factory) of monomials. If DIMENSION is given, a
    77 sequence of DIMENSION elements of type EXPONENT is constructed, where
    78 individual elements are the value of EXPONENT, which defaults
    79 to 0.  Alternatively, all elements may be specified as a list
    80 EXPONENTS."
    81   (format t "MAKE-INSTANCE called with args ~A).~%" args)
    82   (call-next-method))
    83 
    8472  #|
    8573  (let ((new-dimension (cond (dimension-suppied-p dimension)
Note: See TracChangeset for help on using the changeset viewer.