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 2282 for branches


Ignore:
Timestamp:
2015-06-18T14:21:14-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/monom.lisp

    r2281 r2282  
    7373  (format t "INITIALIZE-INSTANCE called with:~&ARGS: ~W.~%" args))
    7474
    75 (defmethod initialize-instance :after ((self monom)
    76                                        ;;&rest args
    77                                        &key
    78                                         dimension
    79                                         exponents
    80                                         exponent
    81                                        &allow-other-keys
    82                                         )
     75(defmethod initialize-instance ((self monom)
     76                                ;;&rest args
     77                                &key
     78                                  dimension
     79                                  exponents
     80                                  exponent
     81                                &allow-other-keys
     82                                  )
    8383  (let* ((new-dimension (cond (dimension dimension)
    8484                              (exponents
Note: See TracChangeset for help on using the changeset viewer.