Changeset 2228 for branches

Timestamp:

2015-06-18T11:11:58-07:00 (10 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/monom.lisp (modified) (2 diffs)

branches/f4grobner/monom.lisp

@@ -70 +70 @@
 
 (defmethod make-instance ((self monom)
-                          &key
+                          &rest args
+                          &key 
                             (dimension nil dimension-suppied-p)
                             (exponents nil exponents-supplied-p)
-                            (exponent  nil exponent-supplied-p))
+                            (exponent  nil exponent-supplied-p)
+                          &allow-other-keys
+                            )
   "A constructor (factory) of monomials. If DIMENSION is given, a
 sequence of DIMENSION elements of type EXPONENT is constructed, where
@@ -79 +82 @@
 to 0.  Alternatively, all elements may be specified as a list
 EXPONENTS."
-  (format t "MAKE-INSTANCE called with DIMENSION ~A(~A), EXPONENTS ~A(~A), EXPONENT ~A(~A).~%"
-          dimension dimension-suppied-p 
-          exponents exponents-supplied-p
-          exponent exponent-supplied-p)
-  (call-next-method :dimension dimension :exponents exponents))
+  (format t "MAKE-INSTANCE called with args ~A).~%" args) 
+  (call-next-method))
 
   #|