- Timestamp:
- 2015-06-18T11:30:02-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r2242 r2243 72 72 &allow-other-keys 73 73 ) 74 (format t "INITIALIZE-INSTANCE called with args ~W.~%" args)) 75 76 77 #| 74 (format t "INITIALIZE-INSTANCE called with args SELF ~W, ~W.~%" self args)) 78 75 (let ((new-dimension (cond (dimension-suppied-p dimension) 79 76 (exponents-supplied-p … … 93 90 (t 94 91 (make-array (list dimension) :element-type 'exponent :initial-element 0))))) 95 |#96 92 97 93
Note:
See TracChangeset
for help on using the changeset viewer.