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 3178


Ignore:
Timestamp:
2015-06-22T18:15:18-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/term.lisp

    r3177 r3178  
    7777|#
    7878
    79 (defmethod update-instance-for-different-class ((old monom) (new standard-class)
     79(defmethod update-instance-for-different-class ((old monom) (new term)
    8080                                                &rest
    8181                                                  initargs
    8282                                                &key
    8383                                                  &allow-other-keys)
     84  (format t "UPDATE-INSTANCE-FOR-DIFFERENT-CLASS MONOM->TERM called.%")
    8485  (format t "Old: ~A~%" old)
    8586  (format t "Initargs: ~A~%" initargs)
    86   (call-next-method)
    87 )
     87  (call-next-method))
     88
     89(defmethod update-instance-for-different-class ((old monom) (new  scalar))
     90                                                &rest
     91                                                  initargs
     92                                                &key
     93                                                  &allow-other-keys)
     94  (format t "UPDATE-INSTANCE-FOR-DIFFERENT-CLASS MONOM->SCALAR called.%")
     95  (format t "Old: ~A~%" old)
     96  (format t "Initargs: ~A~%" initargs)
     97  (call-next-method))
    8898
    8999
Note: See TracChangeset for help on using the changeset viewer.